MAIN LINE
IGNORE CONDITION
READ
9000-CHECK-FOR-EIBRCODE-ERRORS
5100-READ-RECORD
CALC-DAY-OF-THE-WEEK
SET-UP-WK-DATES
LOAD-DOW-LINE
SET-UP-LEAP-CALENDAR
SET-UP-CALENDAR
CHECK-FOR-LEAP-YEAR
BACKUP-PERIOD-ENDING
LOAD-DOW-LINE
GET-PERIOD-ENDING-DSPLY
STARTBR
READPREV
3210-BROWSE-PROGS-BKWD
ENDBR
3200-BACKUP-PROGTASKS
STARTBR
READNEXT
3115-BROWSE-PROGS-FWD
ENDBR
3110-BROWSE-PROGS-FOREWARD
3100-GET-NEXT-PROGRAMS
SET-UP-WK-DATES
READ
GET-TIME-SHEET
BACKUP-PERIOD-ENDING
LOAD-TIME01
SET-UP-WK-DATES
GET-TIME-SHEET
BACKUP-PERIOD-ENDING
LOAD-TIME02
SET-UP-WK-DATES
GET-TIME-SHEET
BACKUP-PERIOD-ENDING
LOAD-TIME03
SET-UP-WK-DATES
GET-TIME-SHEET
BACKUP-PERIOD-ENDING
LOAD-TIME04
SET-UP-WK-DATES
GET-TIME-SHEET
BACKUP-PERIOD-ENDING
LOAD-TIME05
LOAD-TIMESHEET-PAGE
3100-GET-NEXT-PROGRAMS
LOAD-TIMESHEET-PAGE
3100-GET-NEXT-PROGRAMS
LOAD-TIMESHEET-PAGE
3200-BACKUP-PROGTASKS
3100-GET-NEXT-PROGRAMS
LOAD-TIMESHEET-PAGE
3110-BROWSE-PROGS-FOREWARD
LOAD-TIMESHEET-PAGE
3000-GET-ASSIGNMENTS
1000-LOAD-MAP-WITH-DATA
SEND MAP 'PM41'
10-SEND-FRESH-MAP
RECEIVE MAP 'PM41'
RETURN
SET-UP-WK-DATES
10-SEND-FRESH-MAP
SET-UP-WK-DATES
BACKUP-PERIOD-ENDING
LOAD-DOW-LINE
BACKUP-PERIOD-ENDING
LOAD-DOW-LINE
PAGE-BACKWARD
5100-READ-RECORD
3000-GET-ASSIGNMENTS
1000-LOAD-MAP-WITH-DATA
10-SEND-FRESH-MAP
1000-DEFAULT-PROCESSING
SET-UP-WK-DATES
CHECK-FOR-LEAP-YEAR
ADVANCE-PERIOD-ENDING
LOAD-DOW-LINE
PAGE-FOREWARD
1000-DEFAULT-PROCESSING
SET-UP-WK-DATES
BIF
BIF
DELETE
WRITE
PUT-TIMESHEET
BACKUP-PERIOD-ENDING
SAVE-TIME01
SET-UP-WK-DATES
BIF
BIF
PUT-TIMESHEET
BACKUP-PERIOD-ENDING
SAVE-TIME02
SET-UP-WK-DATES
BIF
BIF
PUT-TIMESHEET
BACKUP-PERIOD-ENDING
SAVE-TIME03
SET-UP-WK-DATES
BIF
BIF
PUT-TIMESHEET
BACKUP-PERIOD-ENDING
SAVE-TIME04
SET-UP-WK-DATES
BIF
BIF
PUT-TIMESHEET
BACKUP-PERIOD-ENDING
SAVE-TIME05
SAVE-TIMESHEET-PAGE
GET-PERIOD-ENDING-DSPLY
1000-DEFAULT-PROCESSING
GET-PERIOD-ENDING-DSPLY
1000-DEFAULT-PROCESSING
100-PROCESSING
XCTL 'MCLPP40'
RETURN
0000-START-PROGRAM-HERE
0000-EXIT
100-PROCESSING
100-EXIT
1000-DEFAULT-PROCESSING
DEFAULT-PROCESSING-EXIT
10-SEND-FRESH-MAP
10-EXIT
1000-LOAD-MAP-WITH-DATA
LOAD-MAP-WITH-DATA-EXIT
3000-GET-ASSIGNMENTS
3000-EXIT
3100-GET-NEXT-PROGRAMS
3100-EXIT
3110-BROWSE-PROGS-FOREWARD
3110-EXIT
3115-BROWSE-PROGS-FWD
3115-EXIT
3200-BACKUP-PROGTASKS
3200-EXIT
3210-BROWSE-PROGS-BKWD
3210-EXIT
5000-LOAD-RECORD
5000-EXIT
5100-READ-RECORD
5100-EXIT
LOAD-TIMESHEET-PAGE
LOAD-TIMESHEET-PAGE-EXIT
LOAD-TIME01
LOAD-TIME01-EXIT
LOAD-TIME02
LOAD-TIME02-EXIT
LOAD-TIME03
LOAD-TIME03-EXIT
LOAD-TIME04
LOAD-TIME04-EXIT
LOAD-TIME05
LOAD-TIME05-EXIT
GET-TIME-SHEET
GET-TIME-SHEET-EXIT
SAVE-TIMESHEET-PAGE
SAVE-TIMESHEET-PAGE-EXIT
SAVE-TIME01
SAVE-TIME01-EXIT
SAVE-TIME02
SAVE-TIME02-EXIT
SAVE-TIME03
SAVE-TIME03-EXIT
SAVE-TIME04
SAVE-TIME04-EXIT
SAVE-TIME05
SAVE-TIME05-EXIT
PUT-TIMESHEET
PUT-TIMESHEET-EXIT
9000-CHECK-FOR-EIBRCODE-ERRORS
9000-EXIT
GET-PERIOD-ENDING-DSPLY
GET-PERIOD-ENDING-DSPLY-EXIT
PAGE-FOREWARD
PAGE-FOREWARD-EXIT
PAGE-BACKWARD
PAGE-BACKWARD-EXIT
LOAD-DOW-LINE
LOAD-DOW-LINE-EXIT
SET-UP-WK-DATES
SET-UP-WK-DATES-EXIT
ADVANCE-PERIOD-ENDING
ADVANCE-PERIOD-ENDING-EXIT
BACKUP-PERIOD-ENDING
BACKUP-PERIOD-ENDING-EXIT
CALC-DAY-OF-THE-WEEK
CALC-DAY-OF-THE-WEEK-EXIT
CHECK-FOR-LEAP-YEAR
CHECK-FOR-LEAP-YEAR-EXIT
SET-UP-CALENDAR
SET-UP-CALENDAR-EXIT
SET-UP-LEAP-CALENDAR
SET-UP-LEAP-CALENDAR-EXIT
