CAINDXJOB CONTROL 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CTITLESPARC System Libraries 00020004 CA The following are IBM libraries that relate to the SPARC system. 00030004 CA All of the libraries are protected by RACF with UPDATE authority 00040004 CA limited to the EDP programming supervisors. The supervisors use 00050004 CA the Updates Management System (UMS) to perform the updates to the00060004 CA libraries. All EDP programmers and one R&TS programmer have 00070004 CA access to UMS to enter requested updates to SPARC and other EDP 00080004 CA software systems. Source and listing libraries have a restricted00090004 CA READ protection limited to EDP programmers and some R&TS 00100004 CA programmers. 00110004 CA 00120004 CA 00130004 CA DBG.ISPARC.LOAD - A load library that contains the fully 00140004 CA link edited versions of ISPARC, CPPREP, 00150004 CA and CSEXEC. Access is universal READ. 00160004 CA 00170005 CA 00180005 CA DBG.SPARC.CONTROL - A partitioned data set that contains 00190005 CA skeletons used by JOBGEN. Currently, 00200005 CA only CRAYJCL is used. Access is universal00210005 CA READ. 00220005 CA 00230005 CA 00240005 CA DBG.SPARCJG.LOAD - A load library that contains the link 00250009 CA edited versions, without fully resolving 00260009 CA external references, of all SPARC 00270009 CA subroutines that begin with the letter J 00280006 CA and the fully link edited version of 00290006 CA JOBGEN. The source code and listings 00300006 CA for these routines reside in 00310006 CA DBG.SPARCXA.SOURCE and DBG.SPARCXA.LISTING00320005 CA respectively. UMS controls which routines00330005 CA are contained in this library as opposed 00340005 CA to DBG.SPARCXA.LOAD. Access is universal 00350005 CA READ. 00360005 CA 00370004 CA 00380004 CA DBG.SPARCRAY.SOURCE - A partitioned data set that contains 00390004 CA the program source for SPARC subroutines 00400004 CA which have CRAY dependent source. The 00410004 CA IBM versions will reside in 00420004 CA DBG.SPARCXA.SOURCE. Access is restricted 00430004 CA READ. 00440004 CA 00450005 CA 00460005 CA DBG.SPARCRAY.LISTING - A partitioned data set that contains the 00470009 CA compiled or assembled listings for all 00480009 CA SPARC subroutines on the CRAY. Access is 00490009 CA restricted READ. 00500005 CA 00510005 CA 00520005 CA DBG.SPARCRAY.LOAD - An IBM sequential data set of the linked 00530009 CA SPARC modules, without fully resolving 00540009 CA external references, in CRAY load format. 00550009 CA This is created by a DISPOSE from the 00560005 CA CRAY. Access is universal READ. 00570005 CA 00580004 CA 00590004 CA DBG.SPARCXA.SOURCE - A partitioned data set that contains the 00600004 CA program source and documentation for the 00610004 CA SPARC system. Access is restricted READ. 00620004 CA 00630004 CA 00640004 CA DBG.SPARCXA.LISTING - A partitioned data set that contains the 00650004 CA compiled or assembled listings for all 00660004 CA SPARC programs. Also contains the most 00670010 CA current link edit maps for fully linked 00680010 CA versions of CPEXEC, CPPREP, and ISPARC. 00690010 CA Access is restricted READ. 00700010 CA 00710004 CA 00720004 CA DBG.SPARCXA.LOAD - A load library that contains the link 00730009 CA edited versions, without fully resolving 00740009 CA external references, of all SPARC programs00750009 CA that do not begin with the letter J. 00760004 CA Access is universal READ. 00770004 CAEND 00780004 CTITLESPARC Procedure -- SYS1.JOBPROC(SPARC) 00790000 CA 00800000 CA //SPARC PROC PROG=JOBGEN,REG=2048,MIN=1,SEC=30, 00810000 CA // LOADLIB='DBG.SPARCJG.LOAD', 00820000 CA // CRAYJC='DBG.SPARC.CONTROL(CRAYJCL)', 00830000 CA // JGPARM=, 00840000 CA // RUN='SYSOUT=(A,INTRDR)' 00850000 CA //* 00860000 CA //********************************************************* 00870000 CA //*** 00880000 CA //*** PROGRAM TO SUBMIT A SPARC JOB TO IBM OR CRAY 00890000 CA //*** 00900000 CA //********************************************************* 00910000 CA //* 00920000 CA //SEIS EXEC PGM=&PROG,REGION=®.K,TIME=(&MIN,&SEC), 00930000 CA // PARM='&JGPARM.' 00940000 CA //STEPLIB DD DSN=&LOADLIB,DISP=SHR 00950000 CA // DD DSN=DBG.SPARCJG.LOAD,DISP=SHR 00960000 CA //FT03F001 DD DSN=&CRAYJC, 00970000 CA // LABEL=(,,,IN),DISP=SHR 00980000 CA //FT06F001 DD SYSOUT=* 00990000 CA //FT02F001 DD &RUN,DCB=BLKSIZE=80 01000000 CAEND 01010000 CTITLEDBG.SPARC.CONTROL(CRAYJCL) - CRAY SPARC JCL 01020000 CA 01030000 CA8080 01040000 //* 01050000 // MSGCLASS=D, 01060000 INSERT CLASS 01070000 // PRTY=11 01080000 /*ROUTE XEQ GAP1 01090000 INSERT JOBPARM 01100000 INSERT ROUTE 01110000 INSERT DSN 01120000 //JOBID EXEC PGM=CSSJOBID 01130000 //STEPLIB DD DSN=DBG.SPARCXA.LOAD,DISP=SHR 01140000 //CRAYCL DD DSN=DBG.CRAYCL00,DISP=SHR 01150000 //OUT DD DSN=&&JOBIDOUT,UNIT=SYSDA, 01160000 // SPACE=(CYL,(5,5)),DISP=(NEW,PASS) 01170000 //IN DD * 01180000 INSERT CRAY JOB CARD 01190000 INSERT CRAY ACCOUNT 01200000 *. CRAYJCL ID NO: 870724 01210000 MODE, BT=ENABLE. 01220000 OPTION, STAT=ON. 01230000 INSERT CRAY $OUT 01240000 NORERUN, DISABLE. 01250000 RERUN, DISABLE. 01260000 COPYF, O=UTBLIN, NF=1. 01270000 REWIND, DN=UTBLIN. 01280000 COPYF, O=UTSGIN, NF=1. 01290000 REWIND, DN=UTSGIN. 01300000 ACCESS, DN=FFTLIB, ID=LOCAL. 01310000 ACCESS, DN=SPY, ID=LOCAL. 01320000 ACQUIRE, DN=UNIMESS, DF=TR, PDN=UNIMESS, ID=DBGUNI, ^ 01330000 TEXT='DSN=DBG.UNI5R2.CRAYORIG.UNIMESS,DISP=SHR'. 01340000 ACQUIRE, DN=UNITEXT, DF=TR, PDN=UNITEXT, ID=DBGUNI, ^ 01350000 TEXT='DSN=DBG.UNI5R2.CRAYORIG.UNITEXT,DISP=SHR'. 01360000 RELEASE, DN=UNIMESS:UNITEXT. 01370000 *. ------------------------------------------------------------------01380000 *. º PREPARATION STEP º01390000 *. ------------------------------------------------------------------01400000 CFT, L=0, ON=A. 01410000 ACQUIRE, DN=SPARC, DF=TR, PDN=SPARC, ID=DBG, ^ 01420000 TEXT='DSN=DBG.SPARCRAY.LOAD,DISP=SHR'. 01430000 ACQUIRE, DN=EDP5R2, DF=TR, PDN=EDP5R2, ID=DBG, ^ 01440000 TEXT='DSN=DBG.UNI5R2.CRAYEDP.LOAD,DISP=SHR'. 01450000 ACQUIRE, DN=UNI5R2, DF=TR, PDN=UNI5R2, ID=DBG, ^ 01460000 TEXT='DSN=DBG.UNI5R2.CRAYORIG.LOAD,DISP=SHR'. 01470000 ACQUIRE, DN=SPARCD, DF=TR, PDN=SPARCD, ID=DBGRDK, ^ 01480000 TEXT='DSN=DBGRDK.CRAY.SPARCD.LOAD,DISP=SHR'. 01490000 ACQUIRE, DN=RNDJBGN, DF=TR, PDN=RNDJBGN, ID=DPR, ^ 01500000 TEXT='DSN=DPR.JOBGEN.CRAY.LOAD,DISP=SHR'. 01510000 ACQUIRE, DN=SPARCRD, DF=TR, PDN=SPARCRD, ID=DPR, ^ 01520000 TEXT='DSN=DPR.SPARCRAY.LOAD,DISP=SHR'. 01530000 INSERT ULIB FETCH 01540000 INSERT PARM ASSIGN 01550000 ASSIGN, DN=DUMMY1, A=FT06. 01560000 ASSIGN, DN=DUMMY2, A=FT05. 01570000 BUILD, OBL=SPARC, B=0, NBL=$BLD, NODIR, L=0. 01580000 SEGLDR, I=$IN. 01590000 RELEASE, DN=SPARC:EDP5R2:UNI5R2:SPARCD:RNDJBGN:SPARCRD. 01600000 INSERT ULIB RELEASE 01610000 COPYF, O=FT01, NF=1. 01620000 REWIND, DN=FT01. 01630000 SPRPREP. 01640000 REWIND, DN=CRAYTIM. 01650000 COPYR, I =CRAYTIM, O=PREPTIM, NR. 01660000 RELEASE, DN=CRAYTIM. 01670000 RELEASE, DN=SYSFOWT. 01680000 REWIND, DN=FT98. 01690000 COPYR, I =FT98, O=$OUT, NR. 01700000 RELEASE, DN=FT98. 01710000 END PREP STEP 01720000 *. ------------------------------------------------------------------01730000 *. º PROCESSING STEP º01740000 *. ------------------------------------------------------------------01750000 REWIND, DN=FT01. 01760000 REWIND, DN=FT06. 01770000 COPYR, I =FT06, O=$OUT, NR. 01780000 RELEASE, DN=FT06. 01790000 ASSIGN, DN=DUMMY3, A=FT06. 01800000 CFT, L=0, ON=A. 01810000 ACQUIRE, DN=SPARC, DF=TR, PDN=SPARC, ID=DBG, ^ 01820000 TEXT='DSN=DBG.SPARCRAY.LOAD,DISP=SHR'. 01830000 ACQUIRE, DN=EDP5R2, DF=TR, PDN=EDP5R2, ID=DBG, ^ 01840000 TEXT='DSN=DBG.UNI5R2.CRAYEDP.LOAD,DISP=SHR'. 01850000 ACQUIRE, DN=UNI5R2, DF=TR, PDN=UNI5R2, ID=DBG, ^ 01860000 TEXT='DSN=DBG.UNI5R2.CRAYORIG.LOAD,DISP=SHR'. 01870000 ACQUIRE, DN=SPARCD, DF=TR, PDN=SPARCD, ID=DBGRDK, ^ 01880000 TEXT='DSN=DBGRDK.CRAY.SPARCD.LOAD,DISP=SHR'. 01890000 ACQUIRE, DN=RNDJBGN, DF=TR, PDN=RNDJBGN, ID=DPR, ^ 01900000 TEXT='DSN=DPR.JOBGEN.CRAY.LOAD,DISP=SHR'. 01910000 ACQUIRE, DN=SPARCRD, DF=TR, PDN=SPARCRD, ID=DPR, ^ 01920000 TEXT='DSN=DPR.SPARCRAY.LOAD,DISP=SHR'. 01930000 INSERT ULIB FETCH 01940000 BUILD, OBL=SPARC, B=0, NBL=$BLD, NODIR, L=0. 01950000 SEGLDR, I=$IN. 01960000 RELEASE, DN=SPARC:EDP5R2:UNI5R2:SPARCD:RNDJBGN:SPARCRD. 01970000 INSERT ULIB RELEASE 01980000 INSERT CRAY DISPOSE 01990000 SPRPROC. 02000000 DISPOSE, DN=FT04, DC=PR, TEXT='SYSOUT=V,DEST=N8'. 02010000 END PROC STEP 02020000 *. ------------------------------------------------------------------02030000 *. º POST-PROCESSING STEP -- NORMAL TERMINATION º02040000 *. ------------------------------------------------------------------02050000 ACQUIRE, DN=SPARC, DF=TR, PDN=SPARC, ID=DBG, ^ 02060000 TEXT='DSN=DBG.SPARCRAY.LOAD,DISP=SHR'. 02070000 BUILD, I=UTBLIN, OBL=SPARC, B=0, NBL=$BLD, NODIR, L=0. 02080000 SEGLDR, I=UTSGIN, L=0. 02090000 RELEASE, DN=SPARC. 02100000 REWIND, DN=FT01. 02110000 SPRPOST. 02120000 DISPOSE, DN=IBMJOB, DC=IN, DF=BB, DEFER. 02130000 *. ------------------------------------------------------------------02140000 *. º SYSOUT -- NORMAL TERMINATION º02150000 *. ------------------------------------------------------------------02160000 INSERT REWIND/COPYR 02170000 REWIND, DN=FT06. 02180000 COPYR, I =FT06, O=$OUT, NR. 02190000 REWIND, DN=FT99. 02200000 COPYR, I =FT99, O=$OUT, NR. 02210000 REWIND, DN=UNIPRNT. 02220000 COPYR, I =UNIPRNT, O=$OUT, NR. 02230000 *.REWIND, DN=$STATS. 02240000 *.COPYR, I =$STATS, O=$OUT, NR. 02250000 CHARGES. 02260000 EXIT. 02270000 DUMPJOB. 02280000 *. ------------------------------------------------------------------02290000 *. º SYSOUT -- ABNORMAL TERMINATION º02300000 *. ------------------------------------------------------------------02310000 DEBUG, BLOCKS, TRACE, PAGES=100, MAXDIM=100. 02320000 GARBAGE. 02330000 EXIT. 02340000 *.IF (ABTCODE .EQ. 053) 02350000 *.DUMP, FW, LW, JTA, DSP, O=SPRDUMP. 02360000 *.DISPOSE, DN=SPRDUMP, DC=PR, TEXT='SYSOUT=E,DEST=PLANO'. 02370000 *.ENDIF. 02380000 REWIND, DN=FT98. 02390000 COPYR, I =FT98, O=$OUT, NR. 02400000 INSERT REWIND/COPYR 02410000 REWIND, DN=FT06. 02420014 COPYR, I =FT06, O=$OUT, NR. 02430000 REWIND, DN=FT99. 02440000 COPYR, I =FT99, O=$OUT, NR. 02450000 REWIND, DN=UNIPRNT. 02460000 COPYR, I =UNIPRNT, O=$OUT, NR. 02470000 *.REWIND, DN=$STATS. 02480000 *.COPYR, I =$STATS, O=$OUT, NR. 02490000 *. ------------------------------------------------------------------02500000 *. º POST-PROCESSING STEP -- ABNORMAL TERMINATION º02510000 *. ------------------------------------------------------------------02520000 RELEASE, DN=SPARC. 02530000 ACQUIRE, DN=SPARC, DF=TR, PDN=SPARC, ID=DBG, ^ 02540000 TEXT='DSN=DBG.SPARCRAY.LOAD,DISP=SHR'. 02550000 BUILD, I=UTBLIN, OBL=SPARC, B=0, NBL=$BLD, NODIR, L=0. 02560000 SEGLDR, I=UTSGIN, L=0. 02570000 RELEASE, DN=SPARC. 02580000 REWIND, DN=FT01. 02590000 SPRPOST. 02600000 DISPOSE, DN=IBMJOB, DC=IN, DF=BB, DEFER. 02610000 *.DISPOSE, DN=IBMJOB, DC=ST, DF=BB, ^ 02620000 *. TEXT='DSN=DBGXXX.CRAY.DATA(CRAYOUT),DISP=OLD'. 02630000 CHARGES. 02640000 *. ------------------------------------------------------------------02650000 *. º POST-PROCESSING STEP DATA CARDS º02660000 *. ------------------------------------------------------------------02670000 /EOF 02680000 COPY UTCRAY 02690000 /EOF 02700000 ECHO=OFF 02710000 ABORT=ON 02720000 ABS=SPRPOST 02730000 BIN=$BLD 02740000 DYNAMIC=// 02750000 FORCE=ON 02760000 LIB=SPARC,ARCOLIB 02770000 MAP=ADDRESS 02780000 MLEVEL=WARNING 02790000 MODULES=UTCRAY 02800000 PRESET=INDEF 02810000 REDEF=IGNORE 02820000 USX=CAUTION 02830000 XFER=UTCRAY 02840000 /EOF 02850000 *. ------------------------------------------------------------------02860000 *. º PREPARATION STEP DATA CARDS º02870000 *. ------------------------------------------------------------------02880000 INSERT PREP FORT 02890000 /EOF 02900000 COPY CPPREP 02910000 /EOF 02920000 ECHO=OFF 02930000 ABORT=ON 02940000 ABS=SPRPREP 02950000 BIN=$BLD 02960000 DYNAMIC=// 02970000 FORCE=ON 02980000 INSERT ULIB LIB= 02990000 LIB=SPARC,EDP5R2,UNI5R2,SPARCD,RNDJBGN 03000000 LIB=SPARCRD,FFTLIB,$SYSLIB,ARCOLIB 03010000 MAP=ADDRESS 03020000 MLEVEL=WARNING 03030000 MODULES=CPPREP,KEYINT 03040000 PRESET=ZEROS 03050000 REDEF=IGNORE 03060000 USX=CAUTION 03070000 XFER=CPPREP 03080000 /EOF 03090000 INSERT DATA 03100000 /EOF 03110000 END PREP DATA 03120000 *. ------------------------------------------------------------------03130000 *. º PROCESSING STEP DATA CARDS º03140000 *. ------------------------------------------------------------------03150000 INSERT PROC FORT 03160000 /EOF 03170000 COPY CSEXEC 03180000 /EOF 03190000 ECHO=OFF 03200000 ABORT=ON 03210000 ABS=SPRPROC 03220000 BIN=$BLD 03230000 DYNAMIC=// 03240000 FORCE=ON 03250000 INSERT ULIB LIB= 03260000 LIB=SPARC,EDP5R2,UNI5R2,SPARCD,RNDJBGN 03270000 LIB=SPARCRD,FFTLIB,$SYSLIB,ARCOLIB 03280000 MAP=ADDRESS 03290000 MLEVEL=WARNING 03300000 MODULES=CSEXEC,KEYINT 03310000 PRESET=ZEROS 03320000 REDEF=IGNORE 03330000 USX=CAUTION 03340000 XFER=CSEXEC 03350000 /EOF 03360000 END PROC DATA 03370000 /* 03380000 INSERT EXEC CSSBATCH 03390000 //SYSIN DD DSN=&&JOBIDOUT,DISP=(OLD,DELETE) 03400000 //CSSWAIT EXEC PGM=CSSWAIT,TIME=1440 03410000 //STEPLIB DD DSN=DBG.SPARCXA.LOAD,DISP=SHR 03420000 CA8080 03430000 CAEND 03440000 CTITLEUser-Entered JCL 03450000 CA 03460000 CA DD Overrides 03470000 CA -- --------- 03480000 CA 03490000 CA When a DD override for an input process is used or when it is 03500001 CA desired to enter special DD statements for some reason, the desired03510001 CA DD statements may be included with the seismic data cards and 03520001 CA JOBGEN will insert them into the PROC step of the SPARC run. 03530001 CA 03540000 CA If any of the DD statements refer to a tape, a corresponding 03550000 CA /*SETUP card is required for that tape. Only one /*SETUP card is 03560000 CA allowed per job. 03570000 CA 03580000 CA DD overrides are not allowed for SPARC jobs on the CRAY. 03590001 CA 03600001 CA 03610000 CA ROUTE and JOBPARM Cards 03620000 CA ----- --- ------- ----- 03630000 CA 03640000 CA /*ROUTE and /*JOBPARM cards may also be included with the seismic 03650009 CA data cards. These cards are recognized and placed after the job 03660009 CA card. If a /*ROUTE PRINT card is found, JOBGEN will not generate 03670009 CA one. Only the last occurrence of each card is retained and 03680009 CA inserted in the SPARC job. A /*ROUTE XEQ card is not used for a 03690009 CA CRAY job. 03700009 CA 03710001 CA 03720000 CA Extra Job Steps 03730001 CA ----- --- ----- 03740000 CA 03750000 CA In order to allow the user to enter extra job steps that may 03760000 CA include 'DD *' data sets, JOBGEN checks all user-entered JCL for 03770000 CA an EXEC card. All data cards after an EXEC card are considered 03780000 CA to be user-entered JCL and will not be considered as seismic data 03790000 CA cards. These JCL cards are included in the SPARC run after the 03800000 CA PROC step. 03810000 CA 03820000 CA Extra job steps are not used in CRAY SPARC jobs. 03830001 CA 03840001 CA 03850000 CA Delimiters for '//' and '/*' Cards Used as Data Cards 03860000 CA ---------- --- ---- --- ---- ----- ---- -- ---- ----- 03870000 CA 03880000 CA To tell the IBM system to accept job control statements as data 03890000 CA cards, write the SEIS.CARDS DD statement as follows: 03900000 CA 03910000 CA //SEIS.CARDS DD DATA,DLM=$$ 03920000 CA 03930000 CA The seismic data cards must then be followed by a delimiter 03940000 CA card with '$$' in columns 1 and 2. 03950000 CAEND 03960000 CTITLEOptional Specification of Data Sets 03970000 CA 03980000 CA There are four methods of identifying the input data sets: 03990009 CA 04000000 CA 1. By the SPARC data set number. 04010000 CA 04020000 CA 2. By the DDNAMES of an IBM DD-card which describes the data set.04030000 CA DDNAMES have the form DBGxxx, xxx = 001 to 999, where odd 04040014 CA numbers are used for input data sets. 04050014 CA Suppose the data set is not cataloged. 04060000 CA Enter //DBG001 in DF9 of the READ card. 04070000 CA Include a complete IBM data definition card, 04080000 CA //DBG001 DD DSN=DBG.MISTAKE.FAC,UNIT=TAPE, 04090000 CA // VOL=SER=912345,DISP=SHR 04100000 CA If the data set is on tape, a /*SETUP card is also needed. 04110000 CA See 'User Entered JCL' for information on delimiters required 04120000 CA when // or /* cards are included with the data cards. 04130000 CA 04140000 CA 3. By the reel number, for a tape which is not cataloged and 04150000 CA which does not have an IBM standard label. The data set type 04160013 CA must be 'N'. The reel number will be verified against the 04170013 CA non-label tape data base. 04180013 CA 04190009 CA 4. If a tape has an IBM standard label which must be by-passed, 04200009 CA it may be referenced by volume serial number and the data set 04210009 CA type must be 'B'. The reel number will be verified against 04220013 CA the non-label tape data base. 04230013 CA 04240013 CAEND 04250000 CTITLESteps to Create and Test New Processes 04260000 CA 04270000 CA For testing, the programmer should create a load library named 04280001 CA DBGUID.SPARCTST.LOAD. DBGUID is the programmer's TSO user id. 04290001 CA 04300000 CA 1. Write both preparation and processor programs. See Section F 04310007 CA for program standards and conventions. 04320007 CA 04330007 CA 2. Add an entry to FJPTAB for the new process. (See following 04340012 CA topic.) 04350002 CA 04360002 CA 3. Compile the programs and link into DBGUID.SPARCTST.LOAD. 04370000 CA 04380009 CA 4. If large amounts of reserved or unreserved blank common are 04390009 CA required, add an entry to JSCORE for the process. 04400009 CA 04410000 CA 5. Add a ULIB card for DBGUID.SPARCTST.LOAD to the SPARC test 04420009 CA deck. 04430001 CA 04440008 CA 6. If the new process contains an I/O file and meets the JOBGEN 04450012 CA specifications for an I/O process: 04460008 CA 04470008 CA a. If an output process, modify JSSPAC to include the 04480008 CA calculation of number of records and output block size. 04490008 CA b. Relink JOBGEN into DBGUID.SPARCTST.LOAD to include the new 04500008 CA FJPTAB and JSSPAC, if necessary. 04510008 CA 04520008 CA 7. When executing the SPARC procedure, use the LOADLIB parameter 04530009 CA to specify DBGUID.SPARCTST.LOAD and add DUMMPROC to the JGPARM04540008 CA parameter. The DUMMPROC is needed only to avoid problems 04550008 CA within ISPARC, which is fully linked and will contain the old 04560008 CA FJPTAB. The new FJPTAB will be used by CPPREP and CSEXEC 04570008 CA because use of the ULIB will force ISPARC to perform link 04580008 CA edits for each SPARC step. 04590008 CA 04600002 CA 8. Before production release, consult with EDP programming 04610009 CA supervisors to determine if the new process will be added 04620007 CA to the fully linked CPPREP and CSEXEC load modules. As 04630007 CA necessary, adjust FJPTAB entry and add appropriate code to 04640008 CA subroutines CPSPCL and CSSDAD. FJPTAB may be released to 04650008 CA production once everything has been verified and further 04660008 CA testing of the process may, then, continue without the need 04670008 CA to specify DUMMPROC on the JOBGEN execution. 04680008 CAEND 04690000 CTITLEBuilding a FJPTAB Entry 04700002 CA 04710002 CA The production FJPTAB contains an entry for every production 04720002 CA process and for test processes with special requirements. It may 04730002 CA also contain entries for new production processes under 04740002 CA development. 04750002 CA 04760002 CA Each FJPTAB entry for a process consists of a call to subroutine 04770002 CA FJSETP which contains the information formerly contained in a 04780002 CA PTABMSTR entry. The information needed, with associated KP 04790002 CA variable (where appropriate), is: 04800004 CA 04810002 CA 1. The process name. (KPNA) 04820004 CA 04830002 CA 2. The justification and sort keys. 04840002 CA 04850002 CA 3. The computer systems on which the process is available. "I" 04860002 CA is IBM, "C" is CRAY, and "IC" is IBM and CRAY. 04870002 CA 04880002 CA 4. Maximum number of times a process may appear in a job. Zero04890002 CA indicates no restriction. 04900002 CA 04910002 CA 5. Flag to indicate if process is in fully linked PREP. 04920004 CA 0 - no preparation routine 04930004 CA 1 - preparation routine exists but is not in fully linked 04940004 CA PREP 04950009 CA 2 - preparation routine is in fully linked PREP 04960004 CA 04970004 CA 6. Flag to indicate if process is in fully linked PROC. 04980004 CA 0 - no processor routine 04990004 CA 1 - processor routine exists but is not in fully linked PROC05000009 CA 2 - processor routine is in fully linked PROC 05010011 CA 05020004 CA 7. Flag to indicate that JSCORE should be used to calculate 05030004 CA amount of blank common required for the process. A zero 05040004 CA indicates that JSCORE should be called. A non-zero value is05050004 CA ignored because it formerly was the amount of region size 05060004 CA needed for the executable code for the process. 05070004 CA 05080004 CA 8. An input/output flag. The first data card of the process 05090006 CA must follow the JOBGEN standard for an I/O process. 05100006 CA 0 - no I/O data set 05110004 CA 1 - input data set in PROC step 05120004 CA 2 - output data set in PROC step 05130004 CA 3 - input data set in PREP step 05140004 CA 4 - possible input data set in PROC step. No error will 05150004 CA occur if data set number field is blank. 05160004 CA 05170004 CA 9. Default process return flag. (KPDRTF) 05180004 CA 05190004 CA 10. Last output trace flag. (KPLOTF) 05200004 CA 05210004 CA 11. More input trace flag. (KPMITF) 05220004 CA 05230004 CA 12. Trace array manager flag. (KPTAMF) 05240004 CAEND 05250002