SIGNON

Perform system check while signing on. 

BOTH 
   K3SOBJ         'K3S Object Library'         10A
BOTH    COMP           'Company'                     1A
BOTH    COMPCOD        'Company Code                3A
BOTH    USER           'User calling the program'   10
BOTH    ERRORS         'Error indicator'             1A
BOTH    ERRMSG         'Error message'             100A
BOTH    ERRFIELD       'Field in error'             20A  
BOTH    SIGNON         'System Check   1 = Err'      1A
BOTH    SYDTVSK3       'System  Date vs. K3 Date'    1A
BOTH    NIGHTJOB       'Nightly Job is running'      1A
BOTH    LPARID         'Partition ID'                4A
BOTH    LIBNAM         'Library Name'               10A
BOTH    NBRLOC         'Number of Locations'        10A
Comments