-ADD COB0LINK,PSWD=40EF,ARC,SEQ=/1,6,100,100/
-DESC ADD CEEUPOT SETSSI TO OBJECT FILE
-PGMR STEVE RYDER, JSR SYSTEMS
-LANG COB
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.     COB0LINK.
000300 AUTHOR.         STEVE RYDER/JSR SYSTEMS.
000400 DATE-WRITTEN.   APR 1999.
000500 DATE-COMPILED.
000600*
000700*----COPY OBJECT CARD, ADD INCLUDE SYSLIB(CEEUOPT) + SETSSI
000800*----
000900 ENVIRONMENT DIVISION.
001000 CONFIGURATION SECTION.
001100 INPUT-OUTPUT SECTION.
001200 FILE-CONTROL.
001300     SELECT  OBJIN-FILE     ASSIGN TO   UT-S-OBJIN.
001400     SELECT  OBJOUT-FILE    ASSIGN TO   UT-S-OBJOUT.
001500 DATA DIVISION.
001600 FILE SECTION.
001700 FD  OBJIN-FILE
001800     RECORDING MODE IS F
001900     RECORD CONTAINS 0  CHARACTERS
002000     LABEL RECORDS ARE STANDARD
002100     BLOCK CONTAINS  0  RECORDS
002200     DATA RECORD IS  OBJIN-RECORD.
002300 01  OBJIN-RECORD.
002400     05  OBJIN-01-04             PIC X(04).
002500     05  FILLER                  PIC X(76).
002600 FD  OBJOUT-FILE
002700     RECORDING MODE IS F
002800     RECORD CONTAINS 80 CHARACTERS
002900     LABEL RECORDS ARE  STANDARD
003000     BLOCK CONTAINS  0  RECORDS
003100     DATA RECORD IS  OBJOUT-RECORD.
003200 01  OBJOUT-RECORD                PIC X(80).
003300 WORKING-STORAGE SECTION.
003400 01  MY-PROGRAM-ID               PIC X(08) VALUE 'COB0LINK'.
003500 01  OBJIN-EOF-SW                PIC X(01) VALUE SPACE.
003600     88 OBJIN-EOF                          VALUE 'E'.
003700*----COBVDATE SUGGETED CHANGES FOR COBOL/LE DATE/TIME
003800 01  WS-CURRENT-DATE.
003900     05  CURR-YYYY.
004000         10  CURR-CC             PIC X(02).
004100         10  CURR-YY             PIC X(02).
004200     05  CURR-MM                 PIC X(02).
004300     05  CURR-DD                 PIC X(02).
004400     05  CURR-HRS                PIC X(02).
004500     05  CURR-MIN                PIC X(02).
004600     05  CURR-SEC                PIC X(02).
004700     05  CURR-HUN                PIC X(02).
004800     05  GMT-PLUS-MINUS          PIC X(01).
004900     05  GMT-HRS                 PIC X(02).
005000     05  GMT-MIN                 PIC X(02).
005100 01  SETSSI-LINE.
005200     05  FILLER                  PIC X(08) VALUE ' SETSSI '.
005300     05  SETSSI-DATE             PIC X(08).
005400 LINKAGE SECTION.
005500 01  PARM-FIELDS.
005600     05  PARM-LENGTH             PIC S9(4) COMP SYNC.
005700     05  PARM-DATA.
005800         10  PARM-CHAR           PIC X(01) OCCURS 0 TO 100 TIMES
005900                                 DEPENDING ON PARM-LENGTH.
006000 PROCEDURE DIVISION  USING   PARM-FIELDS.
006100 0000-BEGIN.
006200     OPEN  INPUT OBJIN-FILE
006300          OUTPUT OBJOUT-FILE
006400     PERFORM 900-READ
006500     IF  OBJIN-EOF
006600         MOVE 16 TO RETURN-CODE
006700     ELSE
006800         PERFORM 100-COPY
006900             UNTIL OBJIN-EOF
007000         MOVE 00 TO RETURN-CODE
007100     .
007200     CLOSE OBJIN-FILE  OBJOUT-FILE
007300     .
007400     GOBACK
007500     .
007600 100-COPY.
007700     IF  OBJIN-01-04 = ' NAM'
007800         MOVE ' INCLUDE SYSLIB(CEEUOPT)' TO OBJOUT-RECORD
007900*+++     DISPLAY 'OBJECT=' OBJOUT-RECORD '+'
008000         WRITE OBJOUT-RECORD
008100         MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE
008200         MOVE WS-CURRENT-DATE       TO SETSSI-DATE
008300         MOVE SETSSI-LINE           TO OBJOUT-RECORD
008400*+++     DISPLAY 'OBJECT=' OBJOUT-RECORD '+'
008500         WRITE OBJOUT-RECORD
008600     .
008700*+++ DISPLAY 'OBJECT=' OBJIN-RECORD '*'
008800     WRITE OBJOUT-RECORD FROM OBJIN-RECORD
008900     PERFORM 900-READ
009000     .
009100 900-READ.
009200     READ OBJIN-FILE
009300         AT END MOVE 'E' TO OBJIN-EOF-SW
009400     .
009500 END PROGRAM COB0LINK.
-END
