Filter
Top Products
FILE-CONTROL.
SELECT LISTING ASSIGN TO PRINTER-QPRINT
ORGANIZATION IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD LISTING RECORD CONTAINS 132 CHARACTERS
LABEL RECORDS ARE STANDARD
DATA RECORD IS LIST-LINE.
1 LIST-LINE PIC X(132).
ᑍ
WORKING-STORAGE SECTION.
ᑍ
ᑍ Error Code parameter include. As this sample program
ᑍ uses COPY to include the error code structure, only the first
ᑍ 16 bytes of the error code structure are available. If the
ᑍ application program needs to access the variable length
ᑍ exception data for the error, the developer should physically
ᑍ copy the QSYSINC include and modify the copied include to
ᑍ define additional storage for the exception data.
ᑍ
COPY QUSEC OF QSYSINC-QLBLSRC.
ᑍ
ᑍ Listing text
ᑍ
1 OBJ-ENTRY.
5 OBJECT.
9 TEXT1 PIC X(8) VALUE "Object: ".
9 NAME PIC X(1).
9 TEXT2 PIC X(1) VALUE " Library: ".
9 LIBRARY PIC X(1).
5 TEXT3 PIC X(7) VALUE " Type: ".
5 OBJECT-TYPE PIC X(1).
5 TEXT4 PIC X(7) VALUE " Text: ".
5 OBJECT-TEXT PIC X(5).
1 END-LIST.
5 TEXT1 PIC X(15) VALUE "ᑍᑍᑍ End of List".
ᑍ
1 MISC.
5 SPC-NAME PIC X(2) VALUE "ADOPTS QTEMP ".
5 SPC-SIZE PIC S9(9) VALUE 1 BINARY.
5 SPC-INIT PIC X(1) VALUE X"".
5 SPCPTR POINTER.
5 RCVVAR PIC X(8).
5 RCVVARSIZ PIC S9(9) VALUE 8 BINARY.
5 LST-STATUS PIC X(1).
5 MBR-LIST PIC X(8) VALUE "OBJP2".
5 CONTIN-HDL PIC X(2).
5 APINAM PIC X(1).
5 ROBJD-FMT PIC X(8) VALUE "OBJD1".
5 SPC-TYPE PIC X(1) VALUE "ᑍUSRSPC".
5 EXT-ATTR PIC X(1) VALUE "QSYLOBJP".
5 SPC-AUT PIC X(1) VALUE "ᑍALL".
5 SPC-TEXT PIC X(5).
5 SPC-REPLAC PIC X(1) VALUE "ᑍYES".
5 SPC-DOMAIN PIC X(1) VALUE "ᑍUSER".
ᑍ
LINKAGE SECTION.
ᑍ
B-102 System API Programming V4R1