|
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: 4826 (0x12da)
Types: s3xseg
Names: »S$CGSMP«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$CGSMP«
**************************************************************************
* I N P U T T O C C P G E N E R A T I O N *
**************************************************************************
* *
* *
* THESE CARDS -- AFTER YOU HAVE MODIFIED THEM TO YOUR SPECIFICATIONS -- *
* WILL BE THE INPUT TO THE FIRST PASS OF CCP GENERATION *
* *
* *
* DISCARD THE LEADING CARDS OF THIS DECK, FROM THE // COPY CARD AT THE *
* BEGINNING THROUGH THE CARD THAT MARKS *** END OF INSTRUCTIONS *** *
* *
* DISCARD ALSO THE // CEND CARD -- THE LAST CARD OF THE DECK *
* *
* *
* YOU MUST MAKE THREE KINDS OF MODIFICATIONS TO THE REMAINING CARDS -- *
* *
* 1. IN THOSE CARDS THAT ARE MARKED ++ IN COLUMNS 74-75, REPLACE *
* ANY $$ OR ## IN THE CARD WITH THE IDENTIFICATION OF A DISK *
* UNIT -- *
* *
* -- $$ WITH THE UNIT ON WHICH YOUR SYSTEM PACK IS LOCATED *
* *
* -- ## WITH THE UNIT ON WHICH THE CCP DISTRIBUTION PACK IS *
* LOCATED *
* *
* 2. REPLACE CARD NUMBER 00299 WITH A CARD PUNCHED /* IN COLUMNS 1-2 *
* *
* 3. MODIFY THE GENERATION CONTROL STATEMENTS -- THOSE CARDS *
* FOLLOWING CARD NUMBER 00206 -- TO SPECIFY THE REQUIREMENTS OF *
* THE CCP YOU WISH TO GENERATE *
* *
* IF YOU DO NOT WISH TO USE THE DISTRIBUTION PACK FOR THE REQUIRED *
* $SOURCE FILE, SPECIFY THE LOCATION OF THAT FILE BY CHANGING THE UNIT *
* AND PACK PARAMETERS IN CARDS 00204 AND 00306 *
* *
* *
* WHEN YOU HAVE MADE THESE CHANGES, PLACE THE MODIFIED DECK IN THE *
* HOPPER OF THE SYSTEM INPUT DEVICE AND BEGIN PASS 1 OF CCP GENERATION *
* *
****** END OF INSTRUCTIONS ******************** END OF INSTRUCTIONS ******
* 00100
*** COPY MACRO PROCESSOR AND REQUIRED MODULES OF OVERLAY LINKAGE 00101
*** EDITOR FROM SYSTEM PACK TO DISTRIBUTION PACK 00102
* 00103
// LOAD $MAINT,$$ ++00104
// RUN 00105
// COPY FROM-$$,TO-##,LIBRARY-O,RETAIN-R,NAME-$MPX.ALL ++00106
// COPY FROM-$$,TO-##,LIBRARY-O,RETAIN-R,NAME-$OLYNX ++00107
// COPY FROM-$$,TO-##,LIBRARY-O,RETAIN-R,NAME-$OLBO ++00108
// COPY FROM-$$,TO-##,LIBRARY-O,RETAIN-R,NAME-$OLFTP ++00109
// COPY FROM-$$,TO-##,LIBRARY-O,RETAIN-R,NAME-$OLER ++00110
// END 00111
* 00200
*** PROCESS SPECIFICATIONS FOR THE CCP TO BE GENERATED 00201
* 00202
// LOAD $MPXDV,## ++00203
// FILE NAME-$SOURCE,RETAIN-T,UNIT-##,PACK-PID001,TRACKS-20, ++00204
// LOCATION-386 00205
// RUN 00206
$EIOD CARD-NO, -- MFCU / 1442 / 'MFCU,1442' -- X IOD00
PRINTR-NO, -- 5203 / 1403 -- X IOD01
N3741-NO, -- YES -- X IOD02
DISKS-NO, -- R2 / 'R2,F2' -- X IOD03
D5445-NO -- D1 / 'D1,D2' -- IOD04
$EFAC MAXEUP-1, -- 2 / 3 / 4 / 5 / 6 / 7 / 8 -- X FAC00
DPF-NO, -- YES -- X FAC01
ESCAPE-NO, -- 'CCCCCC' / X'XXXXXXXXXXXX' -- X FAC02
PGMCNT-NO, -- YES -- X FAC03
FSHARE-NO, -- YES -- X FAC04
SYMFIL-NO, -- YES -- X FAC05
FORMAT-NO, -- YES -- X FAC06
PRUF-NO -- YES -- FAC07
$EPLG LANG- , -- COBOL / RPGII / FORTRAN / ASSEM -- X PLG00
PPUNIT- -- R1 / F1 / R2 / F2 -- PLG01
$ESEC SECURE-NO, -- CCP / USER -- X SEC00
LUSI-0 -- 1 - 4096 IF SECURE-USER -- SEC01
$EFIL SETS-1, -- 2 - 25 -- X FIL00
PROGS-10, -- 1 - 255 -- X FIL01
DFILES-5, -- 1 - 50 -- X FIL02
TERMS-1, -- 2 - 254 -- X FIL03
DUMPS-1, -- 2 - 9 -- X FIL04
CORE-24K, -- 32K / 48K / 64K -- X FIL05
TRACE-1, -- 2 - 20 -- X FIL06
FLUNIT- , -- R1 / F1 / R2 / F2 -- X FIL07
TRKLOC- , -- VALID TRACK NUMBER / OMITTED -- X FIL08
FLPACK- -- NAME OF PACK -- FIL09
$EMLA LINES- , -- 0 - 8 -- X MLA00
XLATE-YES -- NO -- MLA01
$EMLD TYPE- , -- SEE SYSTEM REFERENCE MANUAL -- X MLD00
XMCODE- -- SEE SYSTEM REFERENCE MANUAL -- MLD01
$EBSC BSCA- , -- 0 - 2 -- X BSC00
DIAL-NO, -- YES -- X BSC01
PP-NO, -- YES -- X BSC02
MP-NO, -- YES -- X BSC03
CS-NO, -- YES -- X BSC04
GETMSG-NO, -- YES -- X BSC05
ITB-NO, -- YES -- X BSC06
RECSEP-1E, -- TWO HEX DIGITS -- X BSC07
ASCII-NO, -- YES -- X BSC08
EBCDIC-YES, -- NO -- X BSC09
XPRNCY-NO, -- YES -- X BSC10
RESPOL-NO, -- YES -- X BSC11
AUTORS-NO, -- YES -- X BSC12
DA-NO -- YES -- BSC13
$EBSD TYPE- -- SEE SYSTEM REFERENCE MANUAL -- BSD00
$EGEN DSUNIT-$$, -- R1 / F1 -- X ++GEN00
CCUNIT- , -- R1 / F1 / R2 / F2 -- X GEN01
WKUNIT- , -- UNIT / 'UNIT,UNIT,UNIT' -- X GEN02
WKPACK- , -- PACK / 'PACK,PACK,PACK' -- X GEN03
DIUNIT-##, -- R1 / F1 / R2 / F2 -- X ++GEN04
MINRES-NO -- YES -- GEN05
*/* -- REPLACE THIS CARD WITH /* IN COLUMNS 1-2 -- 00299
* 00300
*** PRINT RESULTS OF CCP GENERATION PASS 1 00301
* 00302
*** IF NO ERRORS, PUNCH INPUT TO CCP GENERATION PASS 2 00303
* 00304
// LOAD $CC1PP,## ++00305
// FILE NAME-$SOURCE,RETAIN-S,UNIT-##,PACK-PID001 ++00306
// RUN 00307