Examples of Interactive OS Simulation Using SYSPARM

OS Simulation › DMSTVI Exit › Examples of Interactive OS Simulation Using SYSPARM

Examples of Interactive OS Simulation Using SYSPARM

You want to mount a scratch 3480 cartridge, write file TEST DATA A to the tape, and save the tape for 10 days. Enter the following:
```
filedef inmove disk test data a
```
- When CMS responds with the READY prompt, enter the following:
```
filedef outmove tap1 sl (den 38K sysparm (?)) 
```
  CMS prompts you for a CA VM:Tape option:
```
ENTER SYSPARM:
```
- Enter the following:
```
retpd 10  stack fifo
```
  CMS responds as follows:
```
BEGINNING VMTTVI SYSPARM PROCESSING.
READY;
```
- Enter the following:
```
movefile
```
  CMS responds as follows:
```
VOLUME TAP001 READY ON 181 (483) R/W SL
```

(CA VM:Tape chose scratch tape TAP001 because you did not specify the VOLID parameter on the CMS FILEDEF command.)

You want to mount a scratch tape and set its expiration date to October 10, 2065. Enter the following:
```
filedef inmove disk profile exec
```
- When CMS responds with the READY prompt, enter the following:
```
filedef outmove tap1 sl 1 (sysparm (?))
```
- When CMS prompts you for a CA VM:Tape option, enter the following:
```
expdt 2065/283
```
  CMS responds as follows:
```
BEGINNING VMTTVI SYSPARM PROCESSING.
READY;
```
You want to mount the most current generation of data set BILLING.DATA for input and write the data to the minidisk file BILLING DATA T. Enter the following:
```
filedef inmove tap1 sl (sysparm (?))
```
- When CMS prompts you for a CA VM:Tape option, enter the following:
```
gdg 0
```
  CMS responds as follows:
```
BEGINNING VMTTVI SYSPARM PROCESSING.
READY;
```
- Enter the following:
```
labeldef inmove fid ?
```
  CMS responds as follows:
```
ENTER DATA SET NAME:
```
- Enter the following:
```
billing.data
```
- When CMS responds with the READY prompt, enter the following:
```
filedef outmove disk billing data t
```
- When CMS responds with the READY prompt, enter the following:
```
movefile
```
  CMS responds with the following:
```
VOLUME TAP006 READY ON 181 (480) R/O SL
```
You want to create a new generation (generation 5) of data set BILLING.DATA on a new tape, and you want CMS to write the generation number in the tape label. Enter the following:
```
filedef inmove disk sept99 data c
```
- When CMS responds with the READY prompt, enter the following:
```
filedef outmove tap1 sl (sysparm (?))
```
- When CMS prompts you for a CA VM:Tape option, enter the following:
```
gdg +1
```
  CMS responds as follows:
```
BEGINNING VMTTVI SYSPARM PROCESSING.
READY;
```
- Enter the following:
```
labeldef outmove fid ? volid scratch genn 5
```
  CMS responds as follows:
```
ENTER DATA SET NAME:
```
- Enter the following:
```
billing.data
```
- When CMS responds with the READY prompt, enter the following:
```
movefile
```
  CMS responds as follows:
```
VOLUME TAP005 READY ON 181 (484) R/W SL
```
You want to copy tape TAP010 to a scratch 3480 cartridge and specify the data set name TAP010.COPY for the new tape. Enter the following:
```
filedef inmove tap1 sl volid tap010
```
- When CMS responds with the READY prompt, enter the following:
```
filedef outmove tap2 sl (den 38k
```
- When CMS responds with the READY prompt, enter the following:
```
labeldef outmove volid scratch fid ?
```
  CMS responds as follows:
```
ENTER DATA SET NAME:
```
- Enter the following:
```
tap010.copy
```
- When CMS responds with the READY prompt, enter the following:
```
movefile
```
  CMS responds with the following:
```
VOLUME TAP010 READY ON (481) R/W SL
VOLUME TAP011 READY ON (485) R/W SL
```
You want to execute the ACCTRECV program, which uses the minidisk file ACCOUNT INFO A to create a tape with a data set name of COMPANY.ACCOUNTS.RECEIVA.BLE. The program writes the output to a scratch tape on device 480. You want to cancel the tape mount request if device 480 is not available for immediate use, and you want to assign a value of HIGH to the site-defined field SECURITY. Enter the following:
```
filedef inmove disk account info a
```
- When CMS responds with the READY prompt, enter the following:
```
filedef outmove tap1 sl (sysparm (?))
```
- When CMS prompts you for a CA VM:Tape option, enter the following:
```
security high rdev 480 noqueue
```
  CMS responds as follows:
```
BEGINNING VMTTVI SYSPARM PROCESSING.
READY;
```
- Enter the following:
```
labeldef outmove fid ? volid scratch
```
  CMS responds as follows:
```
ENTER DATA SET NAME:
```
- Enter the following:
```
company.accounts.receiva.ble
```
- When CMS responds with the READY prompt, enter the following:
```
acctrecv
```
  CMS responds as follows:
```
VOLUME TAP002 READY ON 181 (480) R/W SL
```

CA VM:Tape mounted the tape on real device address 480 but attached it at virtual address 181. CMS writes a data set identifier of COMPANY.ACCOUNTS.RECEIVA.BLE in the tape label.