Filter
Top Products
5 OPNDAT PIC X(7).
1 LSTERR.
5 TEXT1 PIC X(22) VALUE "List data not valid".
1 HDRERR.
5 TEXT2 PIC X(22) VALUE "Unknown Generic Header".
ᑍ
1 MISC.
5 SPC-NAME PIC X(2) VALUE "SPCNAME QTEMP ".
5 SPC-SIZE PIC S9(9) VALUE 2 BINARY. 2
5 SPC-INIT PIC X(1) VALUE X"".
5 SPCPTR POINTER.
5 SPC-TYPE PIC X(1) VALUE "ᑍUSRSPC".
5 EXT-ATTR PIC X(1) VALUE "QUSLSPL ". 3
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".
5 LST-FORMAT-NAME PIC X(8) VALUE "SPLF2". 4
5 USR-PRF PIC X(1) VALUE "ᑍCURRENT ".
5 OUTQ PIC X(2) VALUE "ᑍALL".
5 FORMTYP PIC X(1) VALUE "ᑍALL".
5 USRDTA PIC X(1) VALUE "ᑍALL".
5 JOBNAM PIC X(26).
1 KEYS. 7
5 KEY1 PIC S9(9) BINARY VALUE 21. 8
5 KEY2 PIC S9(9) BINARY VALUE 216.
5 KEY3 PIC S9(9) BINARY VALUE 211.
1 NUMBER-OF-KEYS PIC S9(9) BINARY VALUE 3.
1 MISC2.
5 PAGESA PIC X(4).
5 PAGESN REDEFINES PAGESA
PIC S9(9) BINARY.
ᑍ
LINKAGE SECTION.
ᑍ
ᑍ String to map User Space offsets into
ᑍ
1 STRING-SPACE PIC X(32).
ᑍ
ᑍ User Space Generic Header include. These includes will be
ᑍ mapped over a User Space.
ᑍ
COPY QUSGEN OF QSYSINC-QLBLSRC. 11
ᑍ
ᑍ List Spool Files API include. These includes will be
ᑍ mapped over a User Space. The include is copied into the
ᑍ source so that we can define the variable length portion
ᑍ of QUS-LSPL-KEY-INFO.
ᑍ
1 QUS-LSPL-KEY-INFO.
5 LEN-FIELD-INFO-RETD PIC S9(9) BINARY.
5 KEY-FIELD-FOR-FIELD-RETD PIC S9(9) BINARY.
5 TYPE-OF-DATA PIC X(1).
5 RESERV3 PIC X(3).
5 DATA-LENGTH PIC S9(9) BINARY.
5 DATA-FIELD PIC X(1).
ᑍ
ᑍ Varying length
Appendix B. Original Examples in Additional Languages B-39