High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

C- 6
RECORD CONTAINS 200 CHARACTERS
DATA RECORDS ARE TXN-REC.
01 TXN-REC.
05 FILLER PIC X(200).
WORKING-STORAGE SECTION.
01 GLOBALPAK.
05 EXPECTEDVUF PIC X(8).
05 CALLPROTOCOL PIC S9(8) COMP.
05 COMAREALEN PIC S9(8) COMP.
05 COMAREA PIC X(300) VALUE LOW-VALUES.
01 RETURNPAK.
05 RETURNSTATUS PIC S9(8) COMP.
05 SUBLAYERSTATUS PIC S9(8) COMP.
05 RETURNMSGLEN PIC S9(8) COMP.
05 RETURNMSG PIC X(256).
05 LASTITEMTYPE PIC S9(8) COMP.
05 LASTITEMNUM PIC S9(8) COMP.
05 LASTITEMNAME PIC X(32).
05 NUMDATAERRS PIC S9(8) COMP.
05 NUMCHNGFLDS PIC S9(8) COMP.
01 FORMSFILE.
05 FFNAME PIC X(88).
01 TERMPAK.
05 TERMNAME PIC X(88).
05 BYPASSFEATURE PIC S9(8) COMP.
01 SENDPAK.
05 DONTENABLEINPUT PIC S9(8) COMP.
05 WINDOWENH PIC X(8).
05 BYPASSFEATURE PIC S9(8) COMP.
01 FORMPAK.
05 FORMNAME PIC X(32).
05 FORMPOSITION PIC S9(8) COMP.
05 LISTTYPE PIC S9(8) COMP.
05 LISTCOUNT PIC S9(8) COMP.
05 CHNGENTRY OCCURS 3 TIMES.
10 FIELD_ID PIC X(32).
10 CHANGE-TYPE PIC S9(8) COMP.
10 CHANGE-SPEC PIC X(8).
01 MSGFORWINDOW.
05 MSGLEN PIC S9(8) COMP.
05 MSGBUF.
10 MSGAREA PIC X(79).
10 FILLER PIC X(177).
01 DATADESCRPT.
05 DESCRPTTYPE PIC S9(8) COMP.
05 BUFLEN PIC S9(8) COMP.
05 RTNBUFLEN PIC S9(8) COMP.
01 DATABUF.
05 DATAAREA PIC X(200).
01 READPAK.
05 READTIME PIC S9(8) COMP.
05 ENABLEREFORMAT PIC S9(8) COMP.
05 DOREREAD PIC S9(8) COMP.
01 PROMPTPAK.
05 REPAINTDATA PIC S9(8) COMP.
05 WINDOWENH PIC X(8).