CTITLEFJPTAB -- SPARC MASTER PROCESS TABLE DEFINITION 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR DANIEL POLAK 00020000 CA DESIGNER DANIEL POLAK 00030000 CA LANGUAGE VSFORTRAN 00040000 CA SYSTEM IBM AND CRAY 00050000 CA WRITTEN 04-29-87 00060000 C REVISED 5-19-87 REM ADD PREP/PROC FLAG FOR FULLY LINKED MODULE 00070000 C REVISED 6-11-87 DPH CONVERT TO CRAY. 00080000 C REVISED 6-15-87 DJP PLACED PROCESS PEND IN ALPHABETICAL ORDER 00090000 C AND FLAG IT TO BE IN THE FULLY LINKED MODULE00100000 C REVISED 9-03-87 REM UPDATE FOR COMPUTER AND FULLY LINKED FLAGS. 00110000 C DELETE DIFF. 00120000 C REVISED 9-03-87 REM MARK MERJ FOR NO JSCORE. 00130000 C REVISED 9-23-87 REP ADD CRAY AND OUTPUT PROCESS FLAGS FOR AIED. 00140000 C REVISED 9-30-87 REM CHANGE JUST KEY 96 TO LEFT JUSTITY 21-38. 00150000 C REVISED 10-27-87 RDK REMOVE ARCHIVED SPARCD PROCESSES: ALGN, 00160000 C CGRB, CGRS, DD3D, GDPH, LWSA, LWST, NMOD, 00170000 C REFM, REFS, RFST, RTQC, TXDP, TXGF, TXGL, 00180000 C VSPK, ZM65. 00190000 C REVISED 11-16-87 REM CONVERT JUSTIFY KEYS FROM CHAR TO INTEGER. 00200000 C DELETE JUST KEY 95 FOR PLOT CARDS. DELETE 00210000 C CC 1 - 5 FROM ALL SORT KEYS - SINCE EACH 00220000 C PROCESS IS SORTED SEPARATELY. 00230000 C REVISED 12-03-87 REM BRING UP-TO-DATE WITH PTABMSTR: ADD CRAY TO 00240000 C AMPS,TSLC,VCOR;ADD IBM TO DMFK; DELETE MG45;00250000 C ADD SM3D & STKP BUT NOT IN FULL LINK PREP. 00260000 C SET OPAP TO POSSIBLE INPUT:KPDBG=4. 00270000 C REVISED 12-14-87 RDK ADD MTCA. 00280000 C REVISED 12-22-87 REP FLAG GMAP AS AN OUTPUT PROCESS. 00290000 C REVISED 01-05-88 PKC PUT STKP IN PRODUCTION, FULLY LINK PREP. 00300000 C REVISED 01-06-88 ESN CHANGE SM3D TO FULLY LINKED PREP. 00310000 C REVISED 01-13-88 REM REVISE PROCESSES IN FULLY LINKED PROC. 00320000 C REVISED 01-21-88 REM DELETE COLOR PROCESSES FROM FULLY LINKED 00330000 C PROC BECAUSE OF UNIRAS GETMAIN PROBLEMS. 00340000 C REVISED 02-18-88 REM PUT CORR,CSTK,DGEN,FRAN,FREQ,GMAP,IDCN,STKW,00350000 C SWAT,TSUM IN FULLY LINKED PROC. 00360000 C REVISED 03-14-88 ESN REMOVE MI3D. 00370000 C REVISED 03-15-88 RDK ADD CORA. 00380000 C REVISED 04-06-88 ESN ADD SISG. 00390000 C REVISED 04-27-88 RDK REMOVE CRAN; CHANGE CORA SORT CODE. 00400000 C REVISED 05-03-88 RDK ADD TRAK (IBM ONLY). 00410000 C REVISED 06-09-88 ESN ADD RBIN. 00420000 C REVISED 06-29-88 ESN ADD DPDE. 00430000 C REVISED 07-01-88 ESN ADD UMIG. 00440000 C REVISED 07-07-88 DRS ADD VSPV AND VSPW. 00450000 C REVISED 07-22-88 JJC ADD TFAN. 00460000 C REVISED 07-26-88 JJC ADD MLRS. 00470000 C REVISED 08-26-88 JJC ADD MPFK, VCFK, VFFK, AND VSFK. 00480000 C REVISED 09-23-88 MCD ADD PHAS. 00490000 C REVISED 10-04-88 TJT ADD CRAY TO DPTH. 00500000 C REVISED 10-10-88 TJT ADD SL3D AND SU3D. 00510000 C REVISED 10-14-88 TJT REVISE MEMORY ALLOCATION FOR SL3D. 00520000 C REVISED 10-21-88 ESN ADD TRAV. 00530000 C REVISED 11-03-88 ESN ADD LA3D, TR3D, AND TS3D. 00540000 C REVISED 11-07-88 ESN DO NOT FLAG TRAV AS PROC FULLY LINKED. 00550000 C REVISED 11-08-88 RDK REMOVE PHAS FROM FULLY-LINKED PROC. 00560000 C REVISED 11-10-88 TJT CHANGE WRIT TO USE JSCOR3. 00570000 C REVISED 11-17-88 TJT NOT FLAG LA3D AS OUTPUT PROCESS. 00580000 C REVISED 11-30-88 JJC ADD RAVE AND DM3D. 00590000 C REVISED 12-02-88 TJT ADD HSEL. 00600000 C REVISED 12-13-88 ESN ADD VDAT. 00610000 C REVISED 12-19-88 JJC ADD CRAY TO RAVE. 00620000 C REVISED 01-04-89 JJC ADD IBM TO MPFK. 00630000 C REVISED 01-16-89 ESN MODIFY DPDE ENTRY TO USE JSCORE. 00640000 C REVISED 01-19-89 ESN ADD RTVL. 00650000 C REVISED 02-22-89 JJC ADD CNAC, RAMR, ZM3D, AND AVEL. 00660000 C REVISED 02-27-89 REM SET JSCORE FLAG FOR CRDA. 00670000 C REVISED 05-08-89 RDK INCLUDE CORA IN FULLY-LINKED MODULE. 00680000 C REMOVE MTCA. 00690000 C REVISED 06-09-89 TJT INCLUDE HEDT IN FULLY-LINKED MODULE. 00700000 C REVISED 07-17-89 ESN ADD SORT, MU3D, AND PIKL PROCESSES. 00710000 C REVISED 09-12-89 JJC ADD AVOP. 00720000 C REVISED 10-30-89 ESN MODIFY 'SORT' SORT KEY TO NOT SORT CARDS. 00730000 C REVISED 10-31-89 ESN MODIFY 'SORT' TO INDICATE IBM ONLY. 00740000 C REVISED 10-31-89 ESN INDICATE PIKL AND SORT NOT IN THE FULLY 00750000 C LINKED PREP UNTIL CPSPCL CAN BE CHANGED. 00760000 C REVISED 11-02-89 ESN INDICATE PIKL AND SORT PREP TO BE FULLY 00770000 C LINKED. 00780000 C REVISED 11-30-89 ESN ADD WT3D. 00790000 C REVISED 12-18-89 RDK ADD ORDR. 00800000 C REVISED 01-10-90 JJC ADD MSAM. 00810000 C REVISED 04-20-90 ESN ADD RAMR FOR THE CRAY. 00820000 C REVISED 04-27-90 CLJ REMOVE FANA FROM THE CRAY 00830000 C REVISED 06-08-90 ESN ADD CS3D. 00840000 C REVISED 07-18-90 CLJ ADD ENTRY FOR NEW PROCESSES ZM2D & EGEN 00850000 C REVISED 07-24-90 CLJ ADD EGEN TO THE CRAY 00860000 C REVISED 07-24-90 LWC CHANGE EQUL FOR IBM AND CRAY. 00870000 C REVISED 08-07-90 MAA CHANGE REJH FOR IBM AND CRAY. 00880000 C REVISED 10-18-90 CLJ ADD ENTRY FOR NEW PROCESS PRCP 00890000 C REVISED 10-18-90 MAA CHANGED MNVD TO RUN ON THE CRAY. 00900000 C REVISED 10-22-90 CLJ ADD ENTRY FOR NEW PROCESS FX3D 00910000 C REVISED 10-25-90 CLJ ADD TRAK TO THE CRAY 00920000 C REVISED 12-10-90 ESN ADD NAVC. 00930000 C REVISED 01-08-91 ESN CHANGE WT3D TO FULLY LINKED PREP. 00940000 C REVISED 02-01-91 ESN ADD P100, CHANGE TRAK AND PHAS TO FULLY 00950000 C LINKED PROC. 00960000 C REVISED 04-12-91 ESN ADD GA3D. 00970000 C REVISED 05-31-91 ESN DO NOT ALLOW SORT ON THE CRAY. 00980000 C REVISED 10-14-91 ESN ADD SCHS. 00990000 C REVISED 10-16-91 ESN ADD HCPY. 01000000 C REVISED 10-17-91 ESN ADD VSHF. 01010000 C REVISED 10-21-91 ESN ADD STAX. 01020000 C REVISED 12-16-91 CLJ ADD ENTRY FOR NEW PROCESSES VADM & VDDM 01030000 C REVISED 12-31-91 CLJ ADD ENTRY FOR NEW PROCESSES SURF & SURG 01040000 C REVISED 01-02-92 JJC ADD ALTO. 01050000 C REVISED 01-07-92 WRF ADD ANST. 01060000 C REVISED 01-10-92 WRF ADD LMPA. 01070000 C REVISED 01-14-92 ESN CHANGE SORT FOR RAMS/RARS. 01080000 C REVISED 01-23-92 JJC ADD TRIM. 01090000 C REVISED 01-27-92 ESN ADD VOVR. 01100000 C REVISED 02-27-92 JJC ADD FXIN & EQMO. 01110000 C REVISED 03-30-92 WRF ADD FF3D (IBM AND CRAY) 01120000 C REVISED 04-27-92 ESN ADD STAH 01130000 C REVISED 06-04-92 WRF ADD XSMP 01140000 C REVISED 06-19-92 ESN REMOVE GA3D. 01150000 C REVISED 08-21-92 ESN ADD FF2D (IBM AND CRAY) 01160000 C REVISED 02-17-93 ESN MODIFY STAH ENTRY FOR NO JSCORE CALL 01170000 C REVISED 06-14-93 ESN HPLT NOT ON THE CRAY. 01180000 C REVISED 07-29-93 ESN CORRECT SORT CRITERIA FOR SL3D. 01190000 C REVISED 09-14-93 ESN ADD IN 'I' FOR VADM. 01200000 C REVISED 04-18-94 ESN ADD IN 'I' FOR ZM2D. 01210000 C 01220000 CA 01230000 CA 01240000 CA CALL FJPTAB (IERROR) 01250000 CA 01260000 CA OUTPUT IERROR I4 ERROR FLAG: 0 = NO ERROR, 1 = ERROR 01270000 CA 01280000 CA 01290000 CA THIS SUBROUTINE DEFINES THE MASTER PROCESS TABLE OF SPARC 01300000 CA PROCESSES. IT USES SUBROUTINE FJSETP TO BUILD THE "MPTABI" AND 01310000 CA "MPTABC" COMMON AREAS. THIS SOURCE ALSO CONTAINS THE BLOCK DATA 01320000 CA PROGRAM TO ESTABLISH THE "JUSTKY" AND "SORTKY" COMMON BLOCKS 01330000 CA CONTAINING THE JUSTIFICATION AND SORT KEYS. 01340000 C 01350000 SUBROUTINE FJPTAB (IERROR) 01360000 C 01370000 COMMON /MPTABI/ NPTAB 01380000 C 01390000 IERROR = 0 01400000 NPTAB = 0 01410000 C 01420000 C CALL FJSETP (KPNA, JSKEY, COMP, MAXT, PREP, PROC, BCOM, KPDBG, 01430000 C KPDRTF, KPLOTF, KPMITF, , KPTAMF, *STMT) 01440000 C 01450000 C IN/OUT ARGUMENT TYPE DESCRIPTION 01460000 C 01470000 C IN KPNA CH4 PROCESS NAME 01480000 C IN JSKEY CH4 FIRST TWO CHARACTERS = JUSTIFICATION KEY 01490000 C SECOND TWO CHARACTERS = SORT KEY 01500000 C IN COMP CH4 COMPUTER DESIGNATION 01510000 C 'I' = IBM 01520000 C 'C' = CRAY 01530000 C 'D' = DEC 01540000 C IN MAXT I4 MAXIMUM NUMBER OF TIMES A PROCESS MAY 01550000 C APPEAR ON PROC CARD 01560000 C IN PREP I4 PREP MODULE FLAG 01570000 C 0 = NONE 01580000 C 1 = EXISTS 01590000 C 2 = EXISTS & IS IN FULLY LINKED MODULE 01600000 C IN PROC I4 PROC MODULE FLAG 01610000 C 0 = NONE 01620000 C 1 = EXISTS 01630000 C 2 = EXISTS & IS IN FULLY LINKED MODULE 01640000 C IN BCOM I4 STORAGE FOR BLANK COMMON IN KBYTES, 01650000 C 0 = CALCULATE IN JSCORE 01660000 C IN KPDBG I4 INPUT/OUTPUT FLAG 01670000 C 0 = NONE 01680000 C 1 = INPUT FOR PROCESSING STEP 01690000 C 2 = OUTPUT FOR PROCESSING STEP 01700000 C 3 = INPUT FOR PREPARATION STEP 01710000 C 4 = POSSIBLE (NOT REQUIRED) INPUT FOR PROC01720000 C IN KPDRTF I4 DEFAULT VALUE FOR KPRTF 01730000 C IN KPLOTF I4 FLUSH FLAG 01740000 C IN KPMITF I4 MORE INPUT FLAG 01750000 C IN KPTAMF I4 TRACE ARRAY MANAGER FLAG 01760000 C 01770000 C JUST/ 01780000 C SORT COMP PREP JSCORE DRTF MITF 01790000 C KPNA KEY CODE MAXT PROC KPDBG LOTF TAMF 01800000 C 01810000 CALL FJSETP('ACHK','0301','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)01820000 CALL FJSETP('ACON','0102','I ', 0, 1, 1, 18, 0, 1, 1, 1, 2, *5)01830000 CALL FJSETP('AGCS','0102','IC ', 0, 2, 2, 41, 0, 1, 1, 1, 2, *5)01840000 CALL FJSETP('AIED','0102','IC ', 0, 2, 1, 0, 2, 1, 1, 1, 2, *5)01850000 CALL FJSETP('ALTO','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)01860000 CALL FJSETP('AMPL','0102','IC ', 0, 1, 1, 12, 0, 1, 1, 1, 2, *5)01870000 CALL FJSETP('AMPS','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)01880000 CALL FJSETP('ANST','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)01890000 CALL FJSETP('AVEL','0301','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)01900000 CALL FJSETP('AVOP','0301','I ', 0, 2, 1, 0, 2, 0, 1, 1, 2, *5)01910000 C 01920000 CALL FJSETP('BRAN','0001','IC ', 0, 2, 2, 1, 0, 1, 1, 1, 4, *5)01930000 CALL FJSETP('BSUM','0102','IC ', 0, 1, 1, 0, 0, 0, 1, 1, 2, *5)01940000 C 01950000 CALL FJSETP('CD3D','0301','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)01960000 CALL FJSETP('CNAC','9802','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)01970000 CALL FJSETP('CNAX','9802','IC ', 0, 2, 2, 0, 2, 2, 1, 1, 2, *5)01980000 CALL FJSETP('CNAY','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)01990000 CALL FJSETP('COMD','0104','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02000000 CALL FJSETP('COMM','0407','IC ', 0, 0, 0, 1, 0, 1, 1, 1, 2, *5)02010000 CALL FJSETP('CORA','9802','IC ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)02020000 CALL FJSETP('CORR','0102','IC ', 0, 2, 2, 12, 0, 1, 1, 1, 2, *5)02030000 CALL FJSETP('COST','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)02040000 CALL FJSETP('CPRO','0301','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)02050000 CALL FJSETP('CRDA','9808','I ', 0, 2, 2, 0, 2, 2, 1, 1, 2, *5)02060000 CALL FJSETP('CSTK','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)02070000 CALL FJSETP('CS3D','0102','I ', 1, 2, 1, 0, 1, 0, 1, 1, 2, *5)02080000 CALL FJSETP('CVAN','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)02090000 CALL FJSETP('CVPL','9802','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)02100000 C 02110000 C JUST/ 02120000 C SORT COMP PREP JSCORE DRTF MITF 02130000 C KPNA KEY CODE MAXT PROC KPDBG LOTF TAMF 02140000 C 02150000 CALL FJSETP('DATM','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02160000 CALL FJSETP('DBIA','0102','IC ', 0, 2, 1, 8, 0, 1, 1, 1, 2, *5)02170000 CALL FJSETP('DCNX','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)02180000 CALL FJSETP('DCON','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)02190000 CALL FJSETP('DDEC','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02200000 CALL FJSETP('DGEN','0102','IC ', 0, 2, 2, 16, 0, 1, 1, 1, 2, *5)02210000 CALL FJSETP('DG3D','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02220000 CALL FJSETP('DM3D','0301','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02230000 CALL FJSETP('DMFK','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02240000 CALL FJSETP('DMIG','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02250000 CALL FJSETP('DPDE','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02260000 CALL FJSETP('DPTH','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02270000 CALL FJSETP('D3NT','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02280000 C 02290000 CALL FJSETP('EDIT','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)02300000 CALL FJSETP('EGEN','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02310000 CALL FJSETP('EQMO','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02320000 CALL FJSETP('EQUL','0102','IC ', 0, 2, 2, 8, 0, 1, 1, 1, 2, *5)02330000 CALL FJSETP('EXPM','0301','I ', 0, 1, 1, 0, 0, 0, 1, 1, 2, *5)02340000 C 02350000 CALL FJSETP('FANA','9802','I ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)02360000 CALL FJSETP('FANF','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)02370000 CALL FJSETP('FF2D','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02380000 CALL FJSETP('FF3D','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02390000 CALL FJSETP('FILL','0102','IC ', 0, 2, 1, 4, 0, 1, 1, 1, 2, *5)02400000 CALL FJSETP('FLAT','0102','I ', 0, 2, 1, 10, 0, 1, 1, 1, 2, *5)02410000 CALL FJSETP('FLTR','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)02420000 CALL FJSETP('FRAN','9802','IC ', 0, 2, 2, 45, 2, 1, 1, 1, 2, *5)02430000 CALL FJSETP('FREQ','0102','I ', 0, 2, 2, 13, 0, 1, 1, 1, 2, *5)02440000 CALL FJSETP('FX3D','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02450000 CALL FJSETP('FXIN','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02460000 C 02470000 CALL FJSETP('GATH','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)02480000 CALL FJSETP('GDPI','9801','I ', 1, 0, 1, 0, 2, 0, 1, 1, 2, *5)02490000 CALL FJSETP('GDSP','9802','I ', 0, 2, 2, 0, 2, 2, 1, 1, 2, *5)02500000 CALL FJSETP('GEND','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02510000 CALL FJSETP('GEOM','0301','I ', 2, 2, 0, 0, 0, 1, 0, 1, 2, *5)02520000 CALL FJSETP('GMAP','9802','I ', 0, 2, 2, 0, 2, 2, 1, 1, 2, *5)02530000 CALL FJSETP('GM3D','0301','IC ', 1, 2, 0, 0, 0, 1, 0, 1, 2, *5)02540000 C 02550000 CALL FJSETP('HCPY','0104','IC ', 0, 2, 1, 4, 0, 1, 1, 1, 2, *5)02560000 CALL FJSETP('HDMP','0104','IC ', 0, 2, 2, 17, 0, 2, 1, 1, 2, *5)02570000 CALL FJSETP('HEAD','0407','IC ', 0, 0, 0, 1, 0, 1, 0, 1, 2, *5)02580000 CALL FJSETP('HEDT','0301','I ', 0, 2, 0, 1, 0, 1, 0, 1, 2, *5)02590000 CALL FJSETP('HPLT','0101','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)02600000 CALL FJSETP('HSEL','0102','IC ', 0, 2, 1, 1, 0, 0, 1, 1, 2, *5)02610000 CALL FJSETP('HZAA','0102','I ', 0, 2, 1, 15, 0, 0, 1, 1, 2, *5)02620000 CALL FJSETP('HZAD','0301','I ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)02630000 CALL FJSETP('HZVA','0102','I ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02640000 CALL FJSETP('HZVD','9802','I ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)02650000 C 02660000 CALL FJSETP('IDCN','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)02670000 C 02680000 CALL FJSETP('KMIG','0102','C ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02690000 C 02700000 CALL FJSETP('LAGX','0102','I ', 2, 2, 1, 0, 0, 0, 1, 1, 2, *5)02710000 CALL FJSETP('LA3D','0102','I ', 2, 2, 1, 0, 0, 0, 1, 1, 2, *5)02720000 CALL FJSETP('LITH','0101','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02730000 CALL FJSETP('LMPA','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02740000 C 02750000 C JUST/ 02760000 C SORT COMP PREP JSCORE DRTF MITF 02770000 C KPNA KEY CODE MAXT PROC KPDBG LOTF TAMF 02780000 C 02790000 CALL FJSETP('MERJ','0102','I ', 0, 2, 2, 1, 0, 1, 1, 1, 2, *5)02800000 CALL FJSETP('MLRS','9802','I ', 0, 2, 1, 0, 2, 1, 1, 1, 2, *5)02810000 CALL FJSETP('MNVD','0101','IC ', 0, 2, 1, 31, 0, 0, 1, 1, 2, *5)02820000 CALL FJSETP('MPFK','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02830000 CALL FJSETP('MSAM','0102','I ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02840000 CALL FJSETP('MUTE','0102','IC ', 0, 2, 2, 78, 0, 1, 1, 1, 2, *5)02850000 CALL FJSETP('MU3D','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)02860000 CALL FJSETP('M2FK','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02870000 CALL FJSETP('M3FK','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02880000 C 02890000 CALL FJSETP('NAVC','0102','IC ', 0, 2, 1, 1, 0, 1, 1, 1, 2, *5)02900000 CALL FJSETP('NINA','0705','I ', 1, 2, 0, 0, 3, 1, 0, 1, 2, *5)02910000 CALL FJSETP('NMOC','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)02920000 CALL FJSETP('NODE','0101','IC ', 0, 2, 2, 1, 0, 1, 0, 1, 3, *5)02930000 C 02940000 CALL FJSETP('OBIS','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)02950000 CALL FJSETP('OFST','0102','I ', 0, 2, 1, 4, 0, 2, 1, 1, 2, *5)02960000 CALL FJSETP('OPAP','0102','IC ', 0, 2, 2, 0, 4, 1, 1, 1, 2, *5)02970000 CALL FJSETP('ORDR','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)02980000 C 02990000 CALL FJSETP('PANL','0102','IC ', 0, 2, 1, 6, 0, 1, 1, 1, 2, *5)03000000 CALL FJSETP('PEND','0001','IC ', 0, 0, 2, 1, 0, 0, 0, 1, 5, *5)03010000 CALL FJSETP('PHAS','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)03020000 CALL FJSETP('PICK','0302','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03030000 CALL FJSETP('PIKL','0102','I ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03040000 CALL FJSETP('PRCP','0301','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03050000 CALL FJSETP('P100','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03060000 C 03070000 CALL FJSETP('QCMP','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03080000 CALL FJSETP('QUAD','0102','I ', 0, 2, 1, 11, 0, 1, 1, 1, 2, *5)03090000 CALL FJSETP('QULR','9801','I ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)03100000 C 03110000 CALL FJSETP('RAMR','0301','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03120000 CALL FJSETP('RAMS','0105','IC ', 0, 2, 2, 9, 0, 0, 1, 1, 2, *5)03130000 CALL FJSETP('RARS','0105','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03140000 CALL FJSETP('RAVE','0101','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03150000 CALL FJSETP('RBIN','0102','IC ', 0, 2, 1, 1, 0, 1, 1, 1, 2, *5)03160000 CALL FJSETP('RCOR','0102','I ', 0, 2, 1, 11, 0, 1, 1, 1, 2, *5)03170000 CALL FJSETP('READ','0806','IC ', 1, 2, 2, 0, 1, 1, 0, 1, 2, *5)03180000 CALL FJSETP('REFF','0102','I ', 0, 1, 1, 0, 0, 1, 1, 1, 2, *5)03190000 CALL FJSETP('REJH','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03200000 CALL FJSETP('RMOD','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03210000 CALL FJSETP('RSAM','0102','IC ', 0, 1, 1, 12, 0, 1, 1, 1, 2, *5)03220000 CALL FJSETP('RSUM','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03230000 CALL FJSETP('RTVL','0301','I ', 0, 2, 0, 1, 0, 1, 0, 1, 2, *5)03240000 C 03250000 CALL FJSETP('SCDA','0301','IC ', 2, 2, 2, 0, 0, 0, 1, 1, 2, *5)03260000 CALL FJSETP('SCDB','0102','IC ', 2, 2, 2, 0, 0, 0, 1, 1, 2, *5)03270000 CALL FJSETP('SCDC','0301','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03280000 CALL FJSETP('SCHS','0102','IC ', 0, 2, 1, 4, 0, 1, 1, 1, 2, *5)03290000 CALL FJSETP('SDSP','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03300000 CALL FJSETP('SELT','0102','IC ', 0, 2, 2, 0, 0, 2, 1, 1, 2, *5)03310000 CALL FJSETP('SIGD','0102','I ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03320000 CALL FJSETP('SISG','0301','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)03330000 CALL FJSETP('SLOG','0102','I ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)03340000 CALL FJSETP('SLST','0101','I ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03350000 CALL FJSETP('SL3D','0101','IC ', 0, 2, 1, 4, 0, 1, 1, 1, 2, *5)03360000 CALL FJSETP('SMIG','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03370000 CALL FJSETP('SM3D','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03380000 CALL FJSETP('SORT','0101','I ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03390000 CALL FJSETP('SPEC','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)03400000 CALL FJSETP('SPEW','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)03410000 CALL FJSETP('SP2D','9801','I ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)03420000 CALL FJSETP('SP3D','0301','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)03430000 CALL FJSETP('SRVY','9802','I ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)03440000 CALL FJSETP('STAH','0102','IC ', 0, 2, 1, 1, 0, 1, 1, 1, 2, *5)03450000 CALL FJSETP('STAK','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03460000 CALL FJSETP('STAP','0202','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)03470000 CALL FJSETP('STAT','0102','IC ', 1, 2, 2, 0, 0, 1, 1, 1, 2, *5)03480000 CALL FJSETP('STAX','0102','IC ', 0, 2, 1, 4, 0, 1, 1, 1, 2, *5)03490000 CALL FJSETP('STKP','0301','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)03500000 CALL FJSETP('STKW','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03510000 CALL FJSETP('STOC','0102','C ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03520000 CALL FJSETP('SURF','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03530000 CALL FJSETP('SURG','0301','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03540000 CALL FJSETP('SU3D','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03550000 CALL FJSETP('SWAT','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03560000 C 03570000 C JUST/ 03580000 C SORT COMP PREP JSCORE DRTF MITF 03590000 C KPNA KEY CODE MAXT PROC KPDBG LOTF TAMF 03600000 C 03610000 CALL FJSETP('TDIF','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03620000 CALL FJSETP('TFAD','9801','I ', 0, 0, 1, 0, 2, 0, 1, 1, 2, *5)03630000 CALL FJSETP('TFAN','9802','I ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)03640000 CALL FJSETP('TMIX','0102','IC ', 0, 2, 1, 9, 0, 0, 1, 1, 2, *5)03650000 CALL FJSETP('TRAC','0502','IC ', 2, 2, 2, 0, 0, 0, 1, 1, 2, *5)03660000 CALL FJSETP('TRAK','0102','IC ', 2, 2, 2, 0, 4, 0, 1, 1, 2, *5)03670000 CALL FJSETP('TRAV','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03680000 CALL FJSETP('TRAX','0102','I ', 1, 2, 1, 0, 0, 0, 1, 1, 2, *5)03690000 CALL FJSETP('TRCS','0102','IC ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)03700000 CALL FJSETP('TRIM','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03710000 CALL FJSETP('TR3D','0102','I ', 1, 2, 1, 0, 1, 0, 1, 1, 2, *5)03720000 CALL FJSETP('TSLC','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03730000 CALL FJSETP('TSUM','0102','I ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03740000 CALL FJSETP('TS3D','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03750000 CALL FJSETP('TXIN','0102','I ', 0, 1, 1, 0, 0, 0, 1, 1, 2, *5)03760000 CALL FJSETP('TXMP','9802','I ', 0, 2, 1, 0, 2, 0, 1, 1, 2, *5)03770000 C 03780000 CALL FJSETP('UMIG','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03790000 C 03800000 C JUST/ 03810000 C SORT COMP PREP JSCORE DRTF MITF 03820000 C KPNA KEY CODE MAXT PROC KPDBG LOTF TAMF 03830000 C 03840000 CALL FJSETP('VADM','0101','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)03850000 CALL FJSETP('VCFK','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03860000 CALL FJSETP('VCOR','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03870000 CALL FJSETP('VDAT','0301','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)03880000 CALL FJSETP('VDDM','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03890000 CALL FJSETP('VELA','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)03900000 CALL FJSETP('VELD','9802','IC ', 0, 2, 2, 0, 2, 2, 1, 1, 2, *5)03910000 CALL FJSETP('VELF','0103','IC ', 1, 2, 0, 75, 0, 1, 0, 1, 2, *5)03920000 CALL FJSETP('VF3D','0104','IC ', 1, 2, 0, 0, 3, 1, 0, 1, 2, *5)03930000 CALL FJSETP('VFFK','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03940000 CALL FJSETP('VOVR','0102','IC ', 0, 2, 1, 4, 0, 0, 1, 1, 2, *5)03950000 CALL FJSETP('VPRO','0102','IC ', 0, 2, 1, 10, 0, 0, 1, 1, 2, *5)03960000 CALL FJSETP('VSFK','0102','IC ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)03970000 CALL FJSETP('VSHF','0301','I ', 0, 2, 1, 0, 0, 2, 1, 1, 2, *5)03980000 CALL FJSETP('VSPA','9802','I ', 0, 2, 2, 0, 2, 0, 1, 1, 2, *5)03990000 CALL FJSETP('VSPB','0101','I ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)04000000 CALL FJSETP('VSPC','0602','I ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)04010000 CALL FJSETP('VSPD','0108','I ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)04020000 CALL FJSETP('VSPE','0102','I ', 0, 2, 2, 15, 0, 1, 1, 1, 2, *5)04030000 CALL FJSETP('VSPF','0102','I ', 0, 2, 2, 0, 0, 1, 1, 1, 2, *5)04040000 CALL FJSETP('VSPG','9802','I ', 0, 2, 2, 0, 2, 1, 1, 1, 2, *5)04050000 CALL FJSETP('VSPH','9801','I ', 0, 0, 1, 0, 2, 0, 1, 1, 2, *5)04060000 CALL FJSETP('VSPI','9801','I ', 0, 0, 1, 0, 2, 0, 1, 1, 2, *5)04070000 CALL FJSETP('VSPV','0102','I ', 0, 2, 1, 0, 0, 1, 1, 1, 2, *5)04080000 CALL FJSETP('VSPW','0102','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)04090000 CALL FJSETP('VSUM','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)04100000 CALL FJSETP('VZ2D','9809','I ', 0, 1, 1, 0, 2, 2, 1, 1, 2, *5)04110000 CALL FJSETP('VZ3D','0104','I ', 0, 1, 0, 100, 0, 1, 0, 1, 2, *5)04120000 C 04130000 CALL FJSETP('WRIT','9808','IC ', 0, 2, 2, 0, 2, 2, 1, 1, 2, *5)04140000 CALL FJSETP('WRPF','0102','IC ', 0, 2, 2, 0, 0, 0, 1, 1, 2, *5)04150000 CALL FJSETP('WT3D','9808','IC ', 0, 2, 1, 0, 2, 2, 1, 1, 2, *5)04160000 C 04170000 CALL FJSETP('XSMP','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)04180000 C 04190000 CALL FJSETP('ZDCN','0102','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)04200000 CALL FJSETP('ZMIG','0104','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)04210000 CALL FJSETP('ZMPS','0104','I ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)04220000 CALL FJSETP('ZM2D','0101','IC ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)04230000 CALL FJSETP('ZM3D','0301','C ', 0, 2, 1, 0, 0, 0, 1, 1, 2, *5)04240000 C 04250000 C THE DUMMY PROCESS SHOULD ALWAYS BE THE LAST PROCESS 04260000 C 04270000 CALL FJSETP('DUMM','0301','IC ', 0, 1, 1, 0, 0, 0, 1, 1, 2, *5)04280000 RETURN 04290000 C 04300000 5 IERROR = 1 04310000 RETURN 04320000 END 04330000 C 04340000 C***********************************************************************04350000 C 04360000 C BLOCK DATA SUBPROGRAM DEFINING THE JUSTIFICATION AND SORT KEYS 04370000 C 04380000 C***********************************************************************04390000 C 04400000 C 04410000 BLOCK DATA KEYINT 04420000 C 04430000 PARAMETER (NCOLS=15, NKEYS=15, NLINES=3) 04440000 C 04450000 COMMON /JUSTKY/ JKEY, JKEYID 04460000 COMMON /SORTKY/ SKEY, SKEYID 04470000 C 04480000 INTEGER JKEY (NCOLS, NLINES, NKEYS) 04490000 INTEGER JKEYID (NKEYS) 04500000 C 04510000 INTEGER SKEY (NCOLS, NLINES, NKEYS) 04520000 INTEGER SKEYID (NKEYS) 04530000 C 04540000 C***********************************************************************04550000 C 04560000 C JUSTIFICATION KEYS 04570000 C 04580000 C JKEY (NCOLS, 1, NKEYS) = BEGINNING COLUMN NUMBERS 04590000 C JKEY (NCOLS, 2, NKEYS) = ENDING COLUMN NUMBERS 04600000 C JKEY (NCOLS, 3, NKEYS) = KEY FOR TYPE OF JUSTIFICATION: 04610000 C = 1 RIGHT JUSTIFY AND SPACE FILL 04620000 C = 2 RIGHT JUSTIFY AND ZERO FILL 04630000 C = 3 LEFT JUSTIFY AND SPACE FILL 04640000 C = 4 LEFT JUSTIFY AND ZERO FILL 04650000 C 04660000 C***********************************************************************04670000 C 04680000 C JUSTIFICATION KEY FOR MOST CARDS 04690000 C 04700000 DATA JKEYID(01) /01/ 04710000 DATA (JKEY(I,1,01), I = 1, 15) 04720000 * /08, 11, 16, 21, 26, 31, 36, 41, 46, 51, 56, 61, 66, 71, 76/ 04730000 DATA (JKEY(I,2,01), I = 1, 15) 04740000 * /10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80/ 04750000 DATA (JKEY(I,3,01), I = 1, 15) 04760000 * / 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/ 04770000 C 04780000 C JUSTIFICATION KEY FOR EDIT CARDS 04790000 C 04800000 DATA JKEYID(02) /02/ 04810000 DATA (JKEY(I,1,02), I = 1, 15) 04820000 * /08, 11, 16, 21, 26, 31, 36, 41, 46, 51, 56, 61, 66, 71, 76/ 04830000 DATA (JKEY(I,2,02), I = 1, 15) 04840000 * /10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80/ 04850000 DATA (JKEY(I,3,02), I = 1, 15) 04860000 * / 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/ 04870000 C 04880000 C JUSTIFICATION KEY FOR GM3D CARDS 04890000 C 04900000 DATA JKEYID(03) /03/ 04910000 DATA (JKEY(I,1,03), I=1,15) /08,14*0/ 04920000 DATA (JKEY(I,2,03), I=1,15) /10,14*0/ 04930000 DATA (JKEY(I,3,03), I=1,15) / 1,14*0/ 04940000 C 04950000 C JUSTIFICATION KEY FOR HEAD CARDS 04960000 C 04970000 DATA JKEYID(04) /04/ 04980000 DATA (JKEY(I,1,04), I=1,15) /08,14*0/ 04990000 DATA (JKEY(I,2,04), I=1,15) /09,14*0/ 05000000 DATA (JKEY(I,3,04), I=1,15) / 1,14*0/ 05010000 C 05020000 C JUSTIFICATION KEY FOR TRAC CARDS 05030000 C 05040000 DATA JKEYID(05) /05/ 05050000 DATA (JKEY(I,1,05), I = 1, 15) 05060000 * /08, 11, 16, 21, 26, 31, 41, 46, 51, 56, 61, 66, 71, 76, 78/ 05070000 DATA (JKEY(I,2,05), I = 1, 15) 05080000 * /10, 15, 20, 25, 30, 35, 45, 50, 55, 60, 65, 70, 75, 77, 79/ 05090000 DATA (JKEY(I,3,05), I = 1, 15) 05100000 * / 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/ 05110000 C 05120000 C JUSTIFICATION KEY FOR VSPC CARDS 05130000 C 05140000 DATA JKEYID(06) /06/ 05150000 DATA (JKEY(I,1,06), I = 1, 15) 05160000 * /08, 11, 16, 21, 26, 31, 36, 41, 46, 51, 56, 61, 66, 71, 76/ 05170000 DATA (JKEY(I,2,06), I = 1, 15) 05180000 * /10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80/ 05190000 DATA (JKEY(I,3,06), I = 1, 15) 05200000 * / 1, 1, 1, 1, 1, 1, 3, 3, 3, 1, 1, 1, 1, 1, 1/ 05210000 C 05220000 C JUSTIFICATION KEY FOR NINA CARDS 05230000 C 05240000 DATA JKEYID(07) /07/ 05250000 DATA (JKEY(I,1,07), I = 1, 15) 05260000 * /11, 16, 21, 26, 36, 41, 46, 51, 56, 61, 71, 0, 0, 0, 0/ 05270000 DATA (JKEY(I,2,07), I = 1, 15) 05280000 * /15, 20, 25, 35, 40, 45, 50, 55, 60, 70, 80, 0, 0, 0, 0/ 05290000 DATA (JKEY(I,3,07), I = 1, 15) 05300000 * / 1, 1, 1, 1, 1, 1, 1, 3, 1, 3, 3, 0, 0, 0, 0/ 05310000 C 05320000 C JUSTIFICATION KEY FOR READ CARDS 05330000 C 05340000 DATA JKEYID(08) /08/ 05350000 DATA (JKEY(I,1,08), I = 1, 15) 05360000 * /11, 16, 21, 26, 36, 41, 46, 51, 56, 61, 71, 76, 0, 0, 0/ 05370000 DATA (JKEY(I,2,08), I = 1, 15) 05380000 * /15, 20, 25, 35, 40, 45, 50, 55, 60, 70, 75, 80, 0, 0, 0/ 05390000 DATA (JKEY(I,3,08), I = 1, 15) 05400000 * / 1, 1, 1, 1, 1, 1, 1, 3, 1, 3, 3, 3, 0, 0, 0/ 05410000 C 05420000 C JUSTIFICATION KEY FOR ACCOUNT CARD 05430000 C 05440000 DATA JKEYID(09) /96/ 05450000 DATA (JKEY(I,1,09), I = 1, 15) 05460000 * /07, 14, 16, 21, 72, 77, 0, 0, 0, 0, 0, 0, 0, 0, 0/ 05470000 DATA (JKEY(I,2,09), I = 1, 15) 05480000 * /11, 15, 20, 38, 74, 80, 0, 0, 0, 0, 0, 0, 0, 0, 0/ 05490000 DATA (JKEY(I,3,09), I = 1, 15) 05500000 * / 3, 2, 2, 3, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0/ 05510000 C 05520000 C JUSTIFICATION KEY FOR LINE CARD 05530000 C 05540000 DATA JKEYID(10) /97/ 05550000 DATA (JKEY(I,1,10), I = 1, 15) 05560000 * /11, 16, 21, 31, 36, 41, 46, 51, 56, 61, 66, 71, 76, 0, 0/ 05570000 DATA (JKEY(I,2,10), I = 1, 15) 05580000 * /15, 20, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80, 0, 0/ 05590000 DATA (JKEY(I,3,10), I = 1, 15) 05600000 * / 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0/ 05610000 C 05620000 C JUSTIFICATION KEY FOR INPUT OR OUTPUT CARDS 05630000 C 05640000 DATA JKEYID(11) /98/ 05650000 DATA (JKEY(I,1,11), I = 1, 15) 05660000 * /11, 16, 21, 26, 36, 41, 46, 51, 56, 61, 73, 76, 0, 0, 0/ 05670000 DATA (JKEY(I,2,11), I = 1, 15) 05680000 * /15, 20, 25, 35, 40, 45, 50, 55, 60, 65, 75, 80, 0, 0, 0/ 05690000 DATA (JKEY(I,3,11), I = 1, 15) 05700000 * / 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0/ 05710000 C 05720000 C JUSTIFICATION KEYS FOR FUTURE USE 05730000 C 05740000 DATA JKEYID(12) / 0/ 05750000 DATA JKEYID(13) / 0/ 05760000 DATA JKEYID(14) / 0/ 05770000 DATA JKEYID(15) / 0/ 05780000 C 05790000 C***********************************************************************05800000 C 05810000 C SORT KEYS 05820000 C 05830000 C***********************************************************************05840000 C 05850000 C DEFAULT SORT KEY 05860000 C 05870000 DATA SKEYID(01) /1/ 05880000 DATA (SKEY(I,1,01), I = 1, 15) /99, 14*0/ 05890000 DATA (SKEY(I,2,01), I = 1, 15) / 5, 14*0/ 05900000 DATA (SKEY(I,3,01), I = 1, NCOLS) /NCOLS * 0/ 05910000 C 05920000 C USUAL SORT KEY 05930000 C 05940000 DATA SKEYID(02) /2/ 05950000 DATA (SKEY(I,1,02), I = 1, 15) /8, 11, 16, 99,11*0/ 05960000 DATA (SKEY(I,2,02), I = 1, 15) /3, 5, 5, 5,11*0/ 05970000 DATA (SKEY(I,3,02), I = 1, 15) /0, 1, 0, 0,11*0/ 05980000 C 05990000 C VELF SORT KEY 06000000 C 06010000 DATA SKEYID(03) /3/ 06020000 DATA (SKEY(I,1,03), I = 1, 15) /11, 8, 16, 99,11*0/ 06030000 DATA (SKEY(I,2,03), I = 1, 15) / 5, 3, 5, 5,11*0/ 06040000 DATA (SKEY(I,3,03), I = 1, 15) / 1, 0, 0, 0,11*0/ 06050000 C 06060000 C COMD, DD3D, HDMP, VF3D, VZ3D, ZMIG, ZMPS SORT KEY 06070000 C 06080000 DATA SKEYID(04) /4/ 06090000 DATA (SKEY(I,1,04), I = 1, 15) /8, 11, 16, 99,11*0/ 06100000 DATA (SKEY(I,2,04), I = 1, 15) /3, 5, 5, 5,11*0/ 06110000 DATA (SKEY(I,3,04), I = 1, 15) /0, 0, 0, 0,11*0/ 06120000 C 06130000 C NINA SORT KEY 06140000 C 06150000 DATA SKEYID(05) /5/ 06160000 DATA (SKEY(I,1,05), I = 1, 15) /8, 99, 13*0/ 06170000 DATA (SKEY(I,2,05), I = 1, 15) /3, 5, 13*0/ 06180000 DATA (SKEY(I,3,05), I = 1, NCOLS) /NCOLS * 0/ 06190000 C 06200000 C READ SORT KEY 06210000 C 06220000 DATA SKEYID(06) /6/ 06230000 DATA (SKEY(I,1,06), I = 1, 15) /46, 99, 13*0/ 06240000 DATA (SKEY(I,2,06), I = 1, 15) / 5, 5, 13*0/ 06250000 DATA (SKEY(I,3,06), I = 1, NCOLS) /NCOLS * 0/ 06260000 C 06270000 C HEAD SORT KEY 06280000 C 06290000 DATA SKEYID(07) /7/ 06300000 DATA (SKEY(I,1,07), I = 1, 15) /8, 14*0/ 06310000 DATA (SKEY(I,2,07), I = 1, 15) /2, 14*0/ 06320000 DATA (SKEY(I,3,07), I = 1, NCOLS) /NCOLS * 0/ 06330000 C 06340000 C WRIT SORT KEY 06350000 C 06360000 DATA SKEYID(08) /8/ 06370000 DATA (SKEY(I,1,08), I = 1, 15) /8, 99, 13*0/ 06380000 DATA (SKEY(I,2,08), I = 1, 15) /3, 5, 13*0/ 06390000 DATA (SKEY(I,3,08), I = 1, NCOLS) /NCOLS * 0/ 06400000 C 06410000 C VZ2D SORT KEY 06420000 C 06430000 DATA SKEYID(09) /9/ 06440000 DATA (SKEY(I,1,09), I = 1, 15) /8, 11, 99, 12*0/ 06450000 DATA (SKEY(I,2,09), I = 1, 15) /3, 5, 5, 12*0/ 06460000 DATA (SKEY(I,3,09), I = 1, NCOLS) /NCOLS * 0/ 06470000 C 06480000 C EXTRA SORT KEYS FOR FUTURE USE 06490000 C 06500000 DATA SKEYID(10) /0/ 06510000 DATA SKEYID(11) /0/ 06520000 DATA SKEYID(12) /0/ 06530000 DATA SKEYID(13) /0/ 06540000 DATA SKEYID(14) /0/ 06550000 DATA SKEYID(15) /0/ 06560000 C 06570000 END 06580000