//**-----------------------------------------------------------------** //** * //** CA COMMON TAPE SYSTEM * //** 'STARTED TASK' PROCEDURE * //** * //**------------------------------------------------------------------* //CTS PROC CTAPECPB='CAI.CTAPECPB', CA COMMON SOURCE LIBRARY // LAB1='A', LABEL PTR#1 CLASS // LAB2='A', LABEL PTR#2 CLASS // LAB3='A', LABEL PTR#3 CLASS // LBL='TMELBLS', LABEL FORMAT MEMBER // LINKLIB='CAI.CAILIB', CA COMMON LOAD LIBRARY // OPTS='hlq.CTAPOPTN', CA COMMON OPTION LIBRARY // PRM=, EXEC TIME COMMANDS // SOUT='*', OUTPUT SYSOUT CLASS // SPIN='A', SPINOFF OUTPUT SYSOUT CLASS // START='CTSSTART', CTS STARTUP OPTIONS // WRKUNIT='SYSDA' DASD WORK UNIT TYPE //CTSGO EXEC PGM=CTSMAIN, // PARM='&PRM'., // REGION=3M, // TIME=1439 //SPINOFF OUTPUT CLASS=&SPIN. REQUIRED STATEMENT //OUTPUTP1 OUTPUT CLASS=&LAB1. //OUTPUTP2 OUTPUT CLASS=&LAB2. //OUTPUTP3 OUTPUT CLASS=&LAB3. //STEPLIB DD DSN=&LINKLIB., // DISP=SHR //SYSPRINT DD SYSOUT=&SOUT. //CTSSYSIN DD DSN=&OPTS(.&START)., // DISP=SHR //SYSOUT DD SYSOUT=&SOUT. //EARLOBJ DD UNIT=&WRKUNIT., // SPACE=(TRK,2) //EARLLIB DD DSN=&CTAPECPB., // DISP=SHR //SORTIN DD DUMMY //SORTOUT DD DUMMY //SYSIN DD DSN=&CTAPECPB(.&LBL)., // DISP=SHR
CTS may be tested by running it in batch mode. If run in batch mode, ENF and CCI do not need to be active. The following is a description of how to code the //INPUT DD to the CTS job stream. It will point to the CTS input as described below.
*-----------------------------------------------------------------------*
* *
* *
* *
* *
* 1. EACH LABEL REQUEST MUST START WITH THE LABEL REQUEST TYPE *
* KEYWORD ('VOLUME', 'LABEL' OR 'SPINOFF'). *
* *
* 2. EACH LABEL REQUEST AND ALL KEYWORDS ASSOCIATED WITH THE *
* LABEL REQUEST MUST EITHER FIT ON ONE CARD (WITH NO *
* CONTINUATION CHARACTER IN COLUMN 72 OR EACH CARD INPUT *
* ASSOCIATED WITH A LABEL REQUEST MUST CONTAIN A *
* CONTINUATION CHARACTER IN COLUMN 72 IF KEYWORDS FOLLOW. *
* *
* 3. CARD IMAGE RECORDS ENDING IN A COMMA MUST CONTAIN A *
* CONTINUATION CHARACTER IN COLUMN 72. *
* *
* 4. COMMENTS MUST CONTAIN AN ASTERISK (*) IN COLUMN 1 AND *
* NOT BE INTERMIXED WITH CONTINUED 'USERDATA' OR 'LABEL' *
* KEYWORD VALUES. *
* *
* 5. IF VALUES FOR KEYWORD'S 'USERDATA' OR 'LABEL' ARE *
* CONTINUED FROM ONE RECORD TO THE NEXT, COLUMN 71 WILL *
* BE USED AS THE LAST COLUMN OF THE DATA ON CONTINUED *
* RECORDS AND COLUMN 1 OF THE NEXT RECORD WILL BE USED AS *
* THE NEXT COLUMN OF THE DATA UNLESS THE ENDING DELIMITER *
* IS FOUND. THE ENDING DELIMITER MAY BE PLACED ANYWHERE *
* IN COLUMNS 1 THROUGH 71. *
* *
* 6. EACH LABEL REQUEST (AND ALL KEYWORDS ASSOCIATED WITH THE *
* LABEL REQUEST) WILL BE VALIDATED. IF NO ERRORS OCCUR, *
* THE LABEL REQUEST WILL BE PROCESSED AND SENT TO CA-EARL. *
* *
* 7. THE 'USERDATA' KEYWORD IS ONLY VALID WITH A 'VOLUMN' *
* LABEL REQUEST. THE FOLLOWING ARE SAMPLE VALID REQUESTS: *
* *
* SAMPLES. . . 72 *
* 1. VOLUME=123456,PRINTER=(1,3),WTOROUTE=(1,15,20) *
* *
* 2. VOLUME=123456, X *
* PRINTER=(1,3), X *
* WTOROUTE=(1,15,20) *
* *
* 3. VOLUME=123456,USERDATE='...........................X *
* .................................',CCIDEST='.....' *
* *
* 4. LABEL=10,80,'......................................X *
* ....................................',PRINTER=2 *
* *
* 5. SPINOFF *
* 6. SPINOFF,PRINTER=(1,3) *
* *
* 7. STATUS *
*-----------------------------------------------------------------------*
| Copyright © 2011 CA. All rights reserved. | Email CA Technologies about this topic |