IDENTIFICATION DIVISION.
PROGRAM-ID. SHELL.
ENVIRONMENT DIVISION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL COMP-FILE
ASSIGN TO PRINTER "LINK.TXT"
* ORGANIZATION IS INDEXED
* ACCESS MODE IS RANDOM
* RECORD KEY IS RE-COM-NAME
FILE STATUS IS SW-FILE-STATUS.
DATA DIVISION.
FILE SECTION.
FD COMP-FILE
LABEL RECORDS ARE STANDARD
DATA RECORD IS RE-COMP.
01 RE-COMP PIC X(100).
WORKING-STORAGE SECTION.
01 WS-CAMPO PIC X.
*01 ws-campo-2 PIC N(10) Usage National.
01 SW-FILE-STATUS PIC XX.
88 SW-FS-OK VALUE '00' '05'.
88 SW-DUP-KEY VALUE '22'.
88 SW-FIN-FICH VALUE '10'.
88 SW-NOT-FND VALUE '23'.
*01 RUSO PIC N(50) VALUE "ÇÊÙÛÔ".
LINKAGE SECTION.
COPY "PBDM001R.cpy".
PROCEDURE DIVISION USING VA-PBDM001R.
OPEN OUTPUT COMP-FILE
STRING "VN-OPTION: " VN-OPTION "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
STRING "VA-PBDM001R-INDATA: " VA-PBDM001R-INDATA "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
STRING "VA-001R-IN-OP1-DATE: " VA-001R-IN-OP1-DATE "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
STRING "VA-001R-OUT-DATE: " VA-001R-OUT-DATE "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
STRING "VA-001R-OUT-TIME: " VA-001R-OUT-TIME "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
STRING "VA-001R-OUT-STAMP: " VA-001R-OUT-STAMP "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
STRING "VN-001R-OUT-NUMMER: " VN-001R-OUT-NUMMER "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
STRING "VA-001R-RC: " VA-001R-RC "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
STRING "VA-001R-RC-DESC: " VA-001R-RC-DESC "|"
DELIMITED BY SIZE INTO RE-COMP
WRITE RE-COMP
CLOSE COMP-FILE
GOBACK.
Marcadores