HP3000-L Archives

April 1998, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Santavy, Chris" <[log in to unmask]>
Reply To:
Santavy, Chris
Date:
Fri, 3 Apr 1998 11:52:00 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (134 lines)
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

ATOM RSS1 RSS2