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

C-: 23
Pascal Sample Program
$code_offsets on$
$tables on$
{
This application collects employee payroll deduction
transactions and places the edited transactions into
a file.
For this application: Enter key = edit and file
transaction;
f8 = exit application;
all other f keys = redo transaction.
Each transaction entered by the operator is subjected to the
data edits embedded within the input form.
The application continues to collect transactions until either
the operator signals to exit or a system error is detected.
}
PROGRAM PASCAL_EXAMPLE (OUTPUT);
TYPE
COMAREA_TYPE = ARRAY [1..75] OF INTEGER;
GLOBALPAK_REC = RECORD
EXPECTEDVUF : PACKED ARRAY [1..8] OF CHAR;
CALLPROTOCOL : INTEGER;
COMAREALEN : INTEGER;
COMAREA : COMAREA_TYPE;
END;
RETURNPAK_REC = RECORD
RETURNSTATUS : INTEGER;
SUBLAYERSTATUS : INTEGER;
RETURNMSGLEN : INTEGER;
RETURNMSG : PACKED ARRAY [1..256] OF CHAR;
LASTITEMTYPE : INTEGER;
LASTITEMNUM : INTEGER;
LASTITEMNAME : PACKED ARRAY [1..32] OF CHAR;
NUMDATAERRS : INTEGER;
NUMCHNGFLDS : INTEGER;
END;
FORMSFILE_REC = RECORD
FFNAME : PACKED ARRAY [1..88] OF CHAR;
END;
TERMPAK_REC = RECORD
TERMNAME : PACKED ARRAY [1..88] OF CHAR;
BYPASSFEATURE : INTEGER;
END;
SENDPAK_REC = RECORD
DONTENABLEINPUT : INTEGER;
WINDOWENH : PACKED ARRAY [1..8] OF CHAR;
BYPASSFEATURE : INTEGER;
END;
CHNGENTRY_REC = RECORD
FIELD_ID : PACKED ARRAY [1..32] OF CHAR;
CHANGE_TYPE : INTEGER;
CHANGE_SPEC : PACKED ARRAY [1..8] OF CHAR;
END;