|
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: 4572 (0x11dc)
Types: s3xseg
Names: »S$CGSMP«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦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
* 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,SHARE-NO 00205
// RUN 00206
$EFAC ESCAPE-NO, -- 'CCCCCC' / X'XXXXXXXXXXXX' -- X FAC00
PGMCNT-NO, -- YES -- X FAC01
PRUF-NO, -- YES -- X FAC02
FORMAT-NO, -- YES -- X FAC03
ACCEPT-NO, -- YES -- X FAC04
RESOPN-NO, -- YES -- X FAC05
BSYPRT-NO, -- YES -- X FAC06
MOVTNT-NO, -- YES -- X FAC07
MOVDFF-NO, -- YES -- X FAC08
RESREQ-NO, -- YES -- X FAC09
SIOC-NO, -- YES -- X FAC10
OPPRUF-YES, -- NO -- X FAC12
CPUMSG-NO, -- YES -- X FAC13
LOWCAS-NO, -- PF1 - PF12 -- X FAC14
TTASK-NO -- YES -- FAC15
$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 - 999 -- X FIL01
DFILES-5, -- 1 - 192 -- X FIL02
TERMS-1, -- 2 - 254 -- X FIL03
DUMPS-1, -- 2 - 99 -- X FIL04
CORE-96K, -- 128K/160K/192K/224K/256K/384K/512K X FIL05
FLUNIT- , -- R1 / F1 / R2 / F2 -- X FIL06
TRKLOC- , -- VALID TRACK NUMBER / OMITTED -- X FIL07
FLPACK- , -- NAME OF PACK -- X FIL08
DPTRAC-6 -- 0 - 1000 -- 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
INTPOL-NO, -- YES -- X BSC13
DA-NO, -- YES -- X BSC14
PORT-NO -- YES -- BSC15
$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 -- X GEN05
DPPACK- , -- PACK NAME -- X GEN06
DPUNIT- -- UNIT -- GEN07
*/* -- 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,SHARE-NO ++00306
// RUN 00307