|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6350 (0x18ce)
Types: s3xseg
Names: »S$CGSET«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$CGSET«
*******SAMPLE ASSIGNMENT,OPTIONAL LINK EDIT AND SAMPLE START-UP DECK****00010000 *********SAMPLE ASSIGNMENT SET *************************************** 00020000 * 00030000 *****FILL IN UNIT 00040000 // LOAD $CCPAS, 00050000 *****FILL IN PACK AND UNIT 00060000 // FILE NAME-$CCPFILE,RETAIN-P,UNIT- ,PACK- 00070000 *****FILL IN PACK AND UNIT 00080000 // FILE NAME-$CCPWORK,RETAIN-S,TRACKS-3,UNIT- ,PACK- 00090000 // RUN 00100000 *********THE FOLLOWING STATEMENTS CAN BE MODIFIED FOR YOUR CONFIGURATION00110000 *********BUT SOME MUST BE KEPT TO RUN CCPIVP. SEE THE COMMENTS IN 00120000 *********THIS DECK. 00130000 * 00140000 // SET ID-@,ACTION-CREATE,DFLTEXEC-YES 00150000 // SYSTEM MINUPA-21.00K,MINTPBUF-2840,MAXEUP-2, 00160000 // PASSWORD-FECD, 00170000 // COMMANDL-50,TRACEBLK-2,SQB-2,FSB-2,DFFPACK-PROGRAM,PGMREQL-15 00180000 * 00190000 * 00200000 // TERMATTR ATTRID-1,TRANSLAT-NO,BLKL-512,DATAFORM-MESSAGE, 00210000 // VERIFYID-NO,DFF3270-YES 00220000 * 00230000 * 00240000 *********THIS STMNT TYPE REQD FOR CCPIVP(OR MLTALINE STMNT) 00250000 // BSCALINE TYPE-CS,LINENUM-1,POLLLIST-'00,01,10,11' 00260000 // BSCATERM TERMID-00,TYPE-3277M2,ATTRID-1,COMMAND-YES,OFFACTN-HOLD, 00270000 // ADDRCHAR-*60604040*,POLLCHAR-*40404040* 00280000 // BSCATERM TERMID-01,TYPE-3277M2,ATTRID-1,COMMAND-YES,OFFACTN-HOLD, 00290000 // ADDRCHAR-*6060C1C1*,POLLCHAR-*4040C1C1* 00300000 // BSCATERM TERMID-10,TYPE-3277M2,ATTRID-1,COMMAND-NO, 00310000 // ADDRCHAR-*61614040*,POLLCHAR-*C1C14040* 00320000 // BSCATERM TERMID-11,TYPE-3277M2,ATTRID-1,COMMAND-NO, 00330000 // ADDRCHAR-*6161C1C1*,POLLCHAR-*C1C1C1C1* 00340000 * 00350000 // TERMNAME NAME-CU0DV0,TERMID-00 00360000 // TERMNAME NAME-CU0DV1,TERMID-01 00370000 // TERMNAME NAME-CU1DV0,TERMID-10 00380000 // TERMNAME NAME-CU1DV1,TERMID-11 00390000 * 00400000 *********THIS STMNT TYPE REQD FOR CCPIVP 00410000 // DISKFILE NAME-CGIVFIL1,DEVICE-5444,ORG-C,RECL-16 00420000 * 00430000 * 00440000 *********THIS STMNT TYPE REQD FOR CCPIVP 00450000 // DISKFILE NAME-CGIVFIL2,DEVICE-5444,ORG-C,RECL-16 00460000 *********NOTE THAT ONE DISKFILE STATEMENT -CGIVFILE- WOULD BE NEEDED 00470000 *********IF SYMBOLIC FILES ARE NOT BEING USED. 00480000 * 00490000 * 00500000 // DISKFILE NAME-DUMMY1,DEVICE-5444,ORG-D,RECL-256 00510000 // DISKFILE NAME-DUMMY2,DEVICE-5444,ORG-I,RECL-64,KEYL-8,KEYPOS-1, 00520000 // MSTRINDX-YES 00530000 *********THIS STMNT TYPE REQD FOR CCPIVP IF SYMBOLIC FILES ARE USED. 00540000 // SYMFILE NAME-CGIVFILE,DISKFILE-'CGIVFIL1,CGIVFIL2' 00550000 * 00560000 * 00570000 *************THIS STMNT NECESSARY FOR CCPIVP,PACK AND PRINTER VALUES 00580000 *************CAN BE CHANGED FOR YOUR CONFIG. 00590000 // PROGRAM NAME-CCPIVP,LANGUAGE-ASSEM,PGMDATA-YES, 00600000 // FILES-'CGIVFILE/CO/NOSHR', 00610000 // PACK-PROGRAM,PRINTER-YES 00620000 * 00630000 * 00640000 *********NOTE THAT CCPIVP MUST BE ON CORRECT PACK AT STARTUP OF CCP. 00650000 *********IF THE PRINTER IS TO BE USED CCPIVR MUST BE LINK EDITED FIRST 00660000 *********AS CCPIVP. CCPIVP MUST BE ON CORRECT PACK AT STARTUP.******* 00670000 * 00680000 // PROGRAM NAME-DUMMY1,LANGUAGE-RPGII,MRTMAX-2,PGMDATA-YES, 00690000 // FILES-'DUMMY1/DU/SHR,DUMMY2/IRUA/SHR',PACK-SYSTEM,DFFMTERM-4, 00700000 // DFFNDF-2,DFFSFDT-1006 00710000 // PROGRAM NAME-DUMMY2,LANGUAGE-RPGII,MRTMAX-2,PGMDATA-YES, 00720000 // FILES-'DUMMY1/DU/SHR,DUMMY2/IRANA/SHR',PACK-SYSTEM,DFFMTERM-2, 00730000 // DFFNDF-1,DFFSFDT-396 00740000 */* REPLACE WITH /* 00750000 *********END OF SAMPLE ASSIGNMENT DECK******************************** 00760000 * 00770000 *********OPTIONAL LINK EDIT DECK FOR CCPIVP IF THE PRINTER IS SUPPORTED 00780000 *********BY THIS GENERATION OF CCP************************************ 00790000 * 00800000 // LOAD $OLINK,***UNIT CONTAINING OVERLAY LINKAGE EDITOR 00810000 // FILE NAME-$WORK,TRACKS-10,RETAIN-S,UNIT- ,***FILL IN UNIT AND PACK 00820000 // FILE NAME-$SOURCE,TRACKS-10,RETAIN-S,UNIT- ,***FILL IN UNIT AND PACK00830000 // RUN 00840000 * 00850000 *#*#*#*# FOLLOWING L. E. STMNTS FOR NON-RPGII PACK BASED ON $EPLG GENER00860000 *#*#*#*# STATEMENT 00870000 // PHASE NAME-CCPIVP,RETAIN-R,UNIT-***PRODUCTION PACK 00880000 // OPTIONS MAP-XREF 00890000 *********FOLLOWING STATEMENT MUST BE FIRST INCLUDE STATEMENT 00900000 // INCLUDE NAME-CCPIVR,UNIT-***PRODUCTION PACK******* 00910000 // EQUATE OLDNAME-$$LPRT,NEWNAME-$NLPRT 00920000 // EQUATE OLDNAME-@@LPRT,NEWNAME-$$LPRT 00930000 // INCLUDE NAME-$NLPRT,UNIT-****PACK CONTAINING UNIT RECORD MODULE BASED00940000 ***$EPLG CCP GENERATION STATEMENT 00950000 // INCLUDE NAME-$$LPRT,UNIT-****PACK CONTAINING UNIT RECORD MODULE BASED00960000 ***$EPLG CCP GENERATION STATEMENT 00970000 // INCLUDE NAME-$$CSIP,UNIT-***PACK CONTAINING DSM SCP MODULES 00980000 // INCLUDE NAME-$$CSOP,UNIT-***PACK CONTAINING DSM SCP MODULES 00990000 // END 01000000 **#*#*#* END OF NON-RPGII L. E. STMNTS 01010000 * 01020000 *#*#*#*# FOLLOWING L. E. STMNTS FOR RPGII PACK BASED ON $EPLG GENERATION01030000 *#*#*#*# STATEMENT 01040000 // PHASE NAME-CCPIVP,RETAIN-R,UNIT-***PRODUCTION PACK 01050000 // OPTIONS MAP-XREF 01060000 *********FOLLOWING STATEMENT MUST BE FIRST INCLUDE STATEMENT 01070000 // INCLUDE NAME-CCPIVR,UNIT-***PRODUCTION PACK******* 01080000 // INCLUDE NAME-$$LPRT,UNIT-***CCP RPGII COMPILATIOM PACK BASED ON $EPLG01090000 ***GENERATION STATEMENT 01100000 // INCLUDE NAME-$$UPRT,UNIT-***CCP RPGII COMPILATIOM PACK BASED ON $EPLG01110000 ***GENERATION STATEMENT 01120000 // INCLUDE NAME-$$CSIP,UNIT-***CCP RPGII COMPILATION PACK BASED ON $EPLG01130000 ***GENERATION STATEMENT 01140000 // INCLUDE NAME-$$CSOP,UNIT-***CCP RPGII COMPILATION PACK BASED ON $EPLG01150000 ***GENERATION STATEMENT 01160000 // END 01170000 **#*#*#*END OF RPGII L. E. STMNTS 01180000 * 01190000 *********END OF OPTIONAL LINK EDIT STATEMENTS************************* 01200000 * 01210000 *********SAMPLE START-UP OCL FOR CCPIVP******************************* 01220000 * 01230000 // LOAD $CCP,***PRODUCTION PACK 01240000 ***FOLLOWING TWO // FILE STATEMENTS CORRESPOND TO SAMPLE ASSIGNMENT DECK01250000 ***SYMBOLIC FILES 01260000 // FILE NAME-CGIVFIL1,RETAIN-T,TRACKS-1,UNIT- ,PACK- ***ANY 54401270000 // FILE NAME-CGIVFIL2,RETAIN-T,TRACKS-1,UNIT- ,PACK- ***ANY 54401280000 ***IF SYMBOLIC FILES ARE NOT USED REPLACE THE PRECEEDING TWO STATEMENTS 01290000 ***SINGLE // FILE STATEMENT******************************************* 01300000 // FILE NAME-CGIVFILE,RETAIN-T,TRACKS-1,UNIT- ,PACK- ***ANY 54401310000 * 01320000 // RUN 01330000 *********END OF SAMPLE ASSIGNMENT,OPTIONAL LINK EDIT AND SAMPLE START-UP01340000