Sorry for the rushed example
Chris
Santavy,[log in to unmask]
-------------------------
001000 IDENTIFICATION DIVISION.
001100 PROGRAM-ID. SMAIN.
003100 INPUT-OUTPUT SECTION.
003200 FILE-CONTROL.
003300*
003400 SELECT KSAMFILE ASSIGN "KSAMFILE"
003500 ORGANIZATION IS INDEXED
003600 ACCESS IS SEQUENTIAL
003700 RECORD KEY IS KS-KEY.
003800*
003900 SELECT OFFER ASSIGN "OFFER"
004000 ORGANIZATION IS INDEXED
004100 ACCESS IS RANDOM
004200 RECORD KEY IS OFF-NAN-CODE.
004300
005800
005900 DATA DIVISION.
006000 FILE SECTION.
006100 FD KSAMFILE
006200 IS EXTERNAL.
006300 01 KSAM-REC.
006400 03 KS-KEY.
....
012900*****************************************************************
013000 WORKING-STORAGE SECTION.
013100 COPY IMAGEPM OF COPYLIB.
013200*
013300* Database fields ... PANEL
013400*
013500 01 NUK-BASE-NAME PIC X(12) VALUE " NUK;".
013600 01 NUK-PASSWORD PIC X(12) VALUE "PERUSE;".
013700 01 NUK-DATA-SET PIC X(12) VALUE "DNUK;".
013800*
013900* Database fields ... NO ONE TO SCAN
015800*****************************************************************
015900 PROCEDURE DIVISION.
016000 CONTROLLING SECTION.
016100 CONT-10.
016200 PERFORM INIT.
016300 PERFORM MAIN.
016400 PERFORM FINISH.
016500 CONT-END.
016600 STOP RUN.
016700/
016800*****************************************************************
016900 INIT SECTION.
017000 INIT-10.
017100 OPEN INPUT OFFER,
017200 BARFILEK,
017300 PRDSHPK,
017310 SUNDAY,
017400 SHOPAREA.
017500
017600 OPEN I-O KSAMFILE.
017700*
017800 CALL "DBOPEN" USING NUK-BASE-NAME,
017900 NUK-PASSWORD,
018000 MODE5,
018100 STATUSS.
024300 CALL "SSUB1" USING NUK-BASE-NAME.
024400*
001000$CONTROL ANSISUB
001050 IDENTIFICATION DIVISION.
001100 PROGRAM-ID. Ssub1.
001150 AUTHOR. H SULLIVAN.
001700 ENVIRONMENT DIVISION.
001750 CONFIGURATION SECTION.
001800 SOURCE-COMPUTER. HP3000.
001850 OBJECT-COMPUTER. HP3000.
001900 SPECIAL-NAMES.
001950 INPUT-OUTPUT SECTION.
002000 FILE-CONTROL.
002600 SELECT KSAMFILE ASSIGN "KSAMFILE"
002700 ORGANIZATION IS INDEXED
002800 ACCESS IS SEQUENTIAL
002900 RECORD KEY IS KS-KEY.
003000 DATA DIVISION.
003100 FILE SECTION.
003200 FD KSAMFILE
003300 IS EXTERNAL.
003400 01 KSAM-REC.
003500 03 KS-KEY.
....
005410*****************************************************************
005500 WORKING-STORAGE SECTION.
008650*****************************************************************
008700 LINKAGE SECTION.
008800 01 NUK-BASE-NAME PIC X(12).
008900/
008910*****************************************************************
009000 PROCEDURE DIVISION USING NUK-BASE-NAME.
009100
009700*
009900 CALL "DBFIND" USING NUK-BASE-NAME,
010000 WS-DSET,
010100 MODE1,
010200 STATUSS,
010300 WS-ITEM,
010400 WS-ARGUMENT.
012500 CONT-END.
012600 EXIT PROGRAM.
The Compile
COB85XL SMAIN.SOURCE, RMAIN.PROGRAMS,$NULL
COB85XL SSUB1.SOURCE, RSUB1.PROGRAMS,$NULL
COB85XL SSUB2.SOURCE, RSUB2.PROGRAMS,$NULL
CD PROGRAMS
LINK &
FROM=RMAIN,RSUB1 &
,RSUB2 &
;TO=RAMAIN
|