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