|
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: 4064 (0xfe0)
Types: s3xseg
Names: »S$CGSMP«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦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 ******
* 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
$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
BSYPRT-NO, -- YES -- X FAC05
CPUMSG-NO -- YES -- FAC06
$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-48K, -- 64K/96K/128K/160K/192K/224K/256K X FIL05
FLUNIT- , -- R1 / F1 / R2 / F2 -- X FIL06
TRKLOC- , -- VALID TRACK NUMBER / OMITTED -- X FIL07
FLPACK- -- NAME OF PACK -- FIL08
$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 -- BSC14
$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