Documentation >
MAC-PAC Technical Library >
Financial >
General Ledger >
Programs >
General Ledger Post Request - Purpose >
General Ledger Post Request - Calculations
General Ledger Post Request - Calculations
GL200E
A. Housekeeping
This module initializes program variables and constants, sets initial processing flags, and formats the Screen One subfile for display.
B. Mainline
This module initializes program constraints and sets the processing request code for the initial process in its start of session function. The module then controls the flow of the program processing depending upon the module request code returned by each subroutine module. The subroutine modules are described below. The mainline continues to control processing until the end session request is made and the end of job (LR) indicator is set to terminate processing.
1. SIMAIN
This module controls the processing of Screen One. It consists of three subroutines, Screen One Format (SIFMT); Screen One Execute Format (SIEXFT); and Screen One Validation (SIPROC). The first subroutine sets on the error indicators. SIEXFT then displays the screen and classifies the request. S1PROC reads the screen, validates the input fields, and calls the subroutine CHKPST in order to check that the subsystems are closed. If so, then S1PROC submits the requested reports to be processed individually for each location.
2. SETERR - Set Error Indicators
This common subroutine is executed by all screen modules and is used to set on indicators for data errors detected through validations.
3. *PSSR - File Exception/Error
This common subroutine is executed whenever a program execution or program detected error occurs and causes control to pass to subroutine ABNEND.
4. FILERR - File Error
This common subroutine is executed whenever a file error occurs which is not otherwise trapped by an error indicator or an input, update or output operation. This subroutine causes control to be passed either to subroutine ABNEND or to the appropriate screen with an error message.
5. ABNEND - Abnormal Termination
This common subroutine is called b the mainline when the value of error severity is greater than 1. This module terminates the program by setting on indicator LR and executing a return statement.
Date Field Validation
Screen
Field
|
Field
Name
|
Data
Type
|
Master File
Validation
|
Additional
Validation
|
Report date
|
SCRDAT
|
A
|
|
Non-blank
|
Process all
|
SCPOPT
|
A
|
|
D, F, L, Q, T, or blank
|
Roll
|
SCROLL
|
N
|
|
|
Promptable Fields
Process all
Post Option
|
SCROLL
SCPOPT
SFPOPT
|
N
|
|
|
*A = Alphanumeric; N = Unsigned Numeric; S = Signed Numeric