|
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: 4318 (0x10de)
Types: s3xseg
Names: »S$CGSET«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$CGSET«
*******SAMPLE ASSIGNMENT AND SAMPLE START-UP DECK********************** 00010000 * 00020000 *********SAMPLE ASSIGNMENT SET *************************************** 00030000 * 00040000 *****FILL IN UNIT 00050000 * 00060000 // LOAD $CCPAS, 00070000 * 00080000 *****FILL IN PACK AND UNIT 00090000 * 00100000 // FILE NAME-$CCPFILE,RETAIN-P,UNIT- ,PACK- 00110000 * 00120000 *****FILL IN PACK AND UNIT 00130000 * 00140000 // FILE NAME-$CCPWORK,RETAIN-S,TRACKS-3,UNIT- ,PACK- 00150000 // RUN 00160000 * 00170000 *********THE FOLLOWING STATEMENTS CAN BE MODIFIED FOR YOUR 00180000 *********CONFIGURATION BUT SOME MUST BE KEPT TO RUN CCPIVP. SEE THE 00190000 *********COMMENTS IN THIS DECK. 00200000 * 00210000 // SET ID-@,ACTION-CREATE,DFLTEXEC-YES,ANYSPECS-NO 00220000 // SYSTEM MINUPA-22K,MINTPBUF-2840, 00230000 // PASSWORD-FECD, 00240000 // COMMANDL-50,DFFPACK-PROGRAM,PGMREQL-15 00250000 * 00260000 // TERMATTR ATTRID-1,TRANSLAT-NO,BLKL-512,DATAFORM-MESSAGE, 00270000 // VERIFYID-NO,DFF3270-YES 00280000 * 00290000 *********THIS STMNT TYPE REQD FOR CCPIVP(OR MLTALINE STMNT) 00300000 * 00310000 // BSCALINE TYPE-CS,LINENUM-1,POLLLIST-'00,01,10,11' 00320000 // BSCATERM TERMID-00,TYPE-3277M2,ATTRID-1,COMMAND-YES,OFFACTN-HOLD, 00330000 // ADDRCHAR-*60604040*,POLLCHAR-*40404040* 00340000 // BSCATERM TERMID-01,TYPE-3277M2,ATTRID-1,COMMAND-YES,OFFACTN-HOLD, 00350000 // ADDRCHAR-*6060C1C1*,POLLCHAR-*4040C1C1* 00360000 // BSCATERM TERMID-10,TYPE-3277M2,ATTRID-1,COMMAND-NO, 00370000 // ADDRCHAR-*61614040*,POLLCHAR-*C1C14040* 00380000 // BSCATERM TERMID-11,TYPE-3277M2,ATTRID-1,COMMAND-NO, 00390000 // ADDRCHAR-*6161C1C1*,POLLCHAR-*C1C1C1C1* 00400000 * 00410000 // TERMNAME NAME-CU0DV0,TERMID-00 00420000 // TERMNAME NAME-CU0DV1,TERMID-01 00430000 // TERMNAME NAME-CU1DV0,TERMID-10 00440000 // TERMNAME NAME-CU1DV1,TERMID-11 00450000 * 00460000 *********THIS STMNT TYPE REQD FOR CCPIVP 00470000 * 00480000 // DISKFILE NAME-CGIVFIL1,ORG-C,RECL-16 00490000 * 00500000 *********THIS STMNT TYPE REQD FOR CCPIVP 00510000 * 00520000 // DISKFILE NAME-CGIVFIL2,ORG-C,RECL-16 00530000 * 00540000 *********NOTE THAT ONE DISKFILE STATEMENT -CGIVFILE- WOULD BE NEEDED 00550000 *********IF SYMBOLIC FILES ARE NOT BEING USED. 00560000 * 00570000 * THE FOLLOWING TWO DISK FILE STATEMENTS ARE FOR EXAMPLE ONLY AND 00580000 * SHOULD BE REMOVED PRIOR TO RUNNING THIS ASSIGNMENT SET. 00590000 * 00600000 // DISKFILE NAME-DUMMY1,ORG-D,RECL-256 00610000 // DISKFILE NAME-DUMMY2,ORG-I,RECL-64,KEYL-8,KEYPOS-1 00620000 * 00630000 *********THIS STMNT TYPE REQD FOR CCPIVP IF SYMBOLIC FILES ARE USED. 00640000 * 00650000 // SYMFILE NAME-CGIVFILE,DISKFILE-'CGIVFIL1,CGIVFIL2' 00660000 * 00670000 *************THIS STMNT NECESSARY FOR CCPIVP,PACK AND PRINTER VALUES 00680000 *************CAN BE CHANGED FOR YOUR CONFIG. 00690000 * 00700000 // PROGRAM NAME-CCPIVP,PGMDATA-YES, 00710000 // FILES-'CGIVFILE/CO/NOSHR', 00720000 // PACK-PROGRAM,PRINTER-NO 00730000 * 00740000 *********NOTE THAT CCPIVP MUST BE ON CORRECT PACK AT STARTUP OF CCP. 00750000 * 00760000 * THE FOLLOWING TWO PROGRAM STATEMENTS ARE FOR EXAMPLE ONLY AND 00770000 * SHOULD BE REMOVED PRIOR TO RUNNING THIS ASSIGNMENT SET. 00780000 * 00790000 // PROGRAM NAME-DUMMY1,MRTMAX-2,PGMDATA-YES, 00800000 // FILES-'DUMMY1/DU/SHR,DUMMY2/IRUA/SHR',PACK-SYSTEM,DFFMTERM-4, 00810000 // DFFNDF-2,DFFSFDT-1006 00820000 * 00830000 // PROGRAM NAME-DUMMY2,MRTMAX-2,PGMDATA-YES, 00840000 // FILES-'DUMMY1/DU/SHR,DUMMY2/IRA/SHR',PACK-SYSTEM,DFFMTERM-2, 00850000 // DFFNDF-1,DFFSFDT-396 00860000 * 00870000 * 00880000 */* REPLACE WITH /* 00890000 * 00900000 *********END OF SAMPLE ASSIGNMENT DECK******************************** 00910000 * 00920000 *********SAMPLE START-UP OCL FOR CCPIVP******************************* 00930000 * 00940000 * FILL IN UNIT 00950000 * 00960000 // LOAD $CCP, 00970000 * 00980000 ***FOLLOWING TWO // FILE STATEMENTS CORRESPOND TO SAMPLE ASSIGNMENT 00990000 ***DECK SYMBOLIC FILES. 01000000 * 01010000 // FILE NAME-CGIVFIL1,RETAIN-T,TRACKS-1,UNIT- ,PACK- ***ANY 5444 01020000 // FILE NAME-CGIVFIL2,RETAIN-T,TRACKS-1,UNIT- ,PACK- ***ANY 5444 01030000 * 01040000 ***IF SYMBOLIC FILES ARE NOT USED REPLACE THE PRECEEDING TWO STATEMENTS 01050000 ***SINGLE // FILE STATEMENT******************************************* 01060000 * 01070000 // FILE NAME-CGIVFILE,RETAIN-T,TRACKS-1,UNIT- ,PACK- ***ANY 5444 01080000 * 01090000 // RUN 01100000 *********END OF SAMPLE START-UP OCL************************************ 01110000