[Tiny-cobol-users] Called Programs

[Jim M. <ro...@vi...>]

David

Yes, I have a LINKAGE SECTION with a number of variables.

Jim

Here is my linkage section.

018600******************************************************************
018700*                       LINKAGE SECTION                          *
018800******************************************************************
020100 LINKAGE SECTION.
020300 77  PROG-NAME           PIC X(6).
020400 77  PROG-DESC           PIC X(40).
       77  SEARCH-COMPANY         PIC X(05).
       77  SEARCH-ACCOUNT         PIC X(20).
020600 77  ACCOUNT-DESC         PIC X(40).
020700 77  PF-KEY              PIC 99.
020800 77  ERROR-CODE          PIC 99.
020900
021000/
021100******************************************************************
021200*                     PROCEDURE DIVISION                         *
021300******************************************************************
021400 PROCEDURE DIVISION USING PROG-NAME,
021500                          PROG-DESC, SEARCH-COMPANY,SEARCH-ACCOUNT
                                ACCOUNT-DESC,
021600                          PF-KEY, ERROR-CODE.