Arguments Used in Calls to Programs That Create HOLD Files

Call the program with the following arguments:

The subroutine must be allocated to ddname FOCLIB. Compile and link the subroutine as a separate module with AMODE=31,RMODE=ANY.


Top of page

Example: Sample User-Coded Program That Creates a HOLD File

This simple COBOL program shows the use of these parameters. It executes when a report request includes the phrase ON TABLE HOLD VIA EXAMPLE, or when HOLD VIA EXAMPLE is issued from Hot Screen or after a report is displayed:

IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE.
INSTALLATION. IBI.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.

INPUT-OUTPUT SECTION.
FILE-CONTROL.

DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.
LINKAGE SECTION.

01  RECNO PIC S9(9) COMP.
01  LEN PIC S9(9) COMP.
01  DDNAME PIC X(8).
01  REC PIC X(4096).
01  RETCOD PIC S9(9) COMP.
01  ACVT PIC S9(9) COMP.

PROCEDURE DIVISION USING RECNO, LEN, DDNAME, REC, RETCOD, ACVT.

   PERFORM SHOWPARMS.
   GOBACK.

SHOWPARMS.
   DISPLAY " "
   DISPLAY " EXAMPLE COBOL DISPLAY: "
   DISPLAY " RECORD NUMBER " RECNO.
   DISPLAY " LENGTH OF RECORD IS " LEN.
   DISPLAY " DDNAME IS " DDNAME.
   DISPLAY " RECORD IS " REC.
   DISPLAY " RETURN CODE IS " RETCOD.
   DISPLAY " ACVT IS " ACVT.
   MOVE SPACES TO REC.


Information Builders