*DECK +SETUPD 
SETUPD,T200.
*CALL USER
*CALL CHARGE
*CALL BANNER
* 
* DOES- 
*   CREATES PERMANENT FILE *SETUPD*.
* 
MAP,FULL. 
PURGE(SETUPD/NA)
DEFINE(SETUPD/CT=PU)
COBOL5. 
COMPASS(S=CPUTEXT,D)
LOAD(LGO) 
NOGO(SETUPD)
*WEOR,0 
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. SETUPUD. 
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE ASSIGN TO ZZZZTMP
               USE "RT=Z".
           SELECT OUTFILE ASSIGN TO ZZZZINP 
               USE "RT=Z".
       I-O-CONTROL. 
           SAME RECORD AREA FOR INFILE, OUTFILE.
       DATA DIVISION. 
       FILE SECTION.
       FD  INFILE 
           LABEL RECORDS OMITTED. 
       01 INREC  PIC X(80). 
       FD  OUTFILE
           LABEL RECORDS OMITTED. 
       01  OUTREC  PIC X(80). 
       WORKING-STORAGE SECTION. 
       01  ADDED-CARDS-DATA.
           02  FILLER  PIC X(70) VALUE
               "*IDENT DOEORS". 
           02  FILLER  PIC X(70) VALUE
               "*/  THIS DECK COMPILES THE NEEDED EORS ". 
           02  FILLER  PIC X(70) VALUE
               "*/  AT THE END OF THE VARIOUS SOURCE TEXTS     ". 
           02  PIC X(70)  VALUE 
           "*C *WEOR1,*WEOR2,*WEOR3,*WEOR4    ".
           02  PIC X(70)  VALUE 
           "*C *WEOR4A,*WEOR4B,*WEOR5,*WEOR6".
      *  THE FOLLOWING IS CONDITIONAL DEPENDING ON DEBUG RUN OR NOT 
           02  FILLER  PIC X(70) VALUE
               "*PURGE DEBUGOPT". 
       01  A-C  REDEFINES ADDED-CARDS-DATA. 
           02  ADDED-CARDS  PIC X(70) OCCURS 6 TIMES
               INDEXED BY ADDED-CARDS-INDEX.
       77  NBR-ADDED-CARDS  PIC 9(5) COMP-1 VALUE 5.
       77  EOF-FLAG  PIC 9 COMP-1 VALUE 0.
           88  IN-EOF VALUE 1.
       77  RUN-TYPE   PIC 99 COMP-1.
           88  FEATURERUN  VALUE 1, 2.
           88  DEBUGRUN  VALUE 2. 
       PROCEDURE DIVISION.
       STARTT.
      *  PICK UP CCL REGISTER R1 WHICH HAS TYPE OF RUN IN IT. 
      *    ENTER COMPASS "GETR1" USING RUN-TYPE.
           MOVE ZERO TO RUN-TYPE. 
           OPEN INPUT INFILE. 
           OPEN OUTPUT OUTFILE. 
           PERFORM COPY-INFILE UNTIL IN-EOF.
           IF FEATURERUN
               IF NOT DEBUGRUN
                   ADD 1 TO NBR-ADDED-CARDS 
           .
           PERFORM COPY-ADDED-CARDS VARYING ADDED-CARDS-INDEX 
               FROM 1 BY 1 UNTIL ADDED-CARDS-INDEX IS GREATER THAN
               NBR-ADDED-CARDS. 
           CLOSE INFILE WITH LOCK.
           CLOSE OUTFILE. 
           STOP RUN.
       COPY-INFILE. 
           READ INFILE AT END MOVE 1 TO EOF-FLAG. 
           IF NOT IN-EOF
               WRITE OUTREC.
       COPY-ADDED-CARDS.
           MOVE ADDED-CARDS (ADDED-CARDS-INDEX) TO OUTREC.
           WRITE OUTREC.
*WEOR,0 
          IDENT  GETR1
          SST 
  
*         GETR1 RETURNS CCL REGISTER R1 TO THE ADDRESS IN X1
          ENTRY  GETR1
 GETR1    DATA   0
          BX4    X1          SAVE X1
          MX7    0
          SA7    JCIWD       CLEAR FOR RESPONSE 
          GETJCI  JCIWD,RCL  GET SETTINGS OF JCI STUFF
          SA1    JCIWD+1
          MX7    60-18
          BX6    -X7*X1      MASK OFF R1
          SA6    X4          STORE R1 
          EQ     GETR1       RETURN 
 JCIWD    BSS    2
          END 
*WEOR,17
