MAIN LINE
IGNORE CONDITION
STARTBR
READPREV
3035-BROWSE-RECS-BKWD
ENDBR
3030-BACKUP-PROJECTS
STARTBR
READNEXT
3025-BROWSE-RECS-FWD
ENDBR
3020-GET-NEXT-PROJECTS
3020-GET-NEXT-PROJECTS
3000-GET-PROJECTS
11000-LOAD-MAPSET-FOR-OUTPUT
SEND MAP 'PM50'
10000-SEND-FRESH-MAP
1000-DEFAULT-PROCESSING
RECEIVE MAP 'PM50'
RETURN
2100-CALC-CURSOR-POSITION
XCTL 'MCLPP51'
2000-PROJECT-MAINTENANCE
1000-DEFAULT-PROCESSING
100-SELECT-PROCESSING
XCTL 'MCLPP01'
RETURN
0000-START-PROGRAM-HERE
0000-EXIT
100-SELECT-PROCESSING
100-EXIT
1000-DEFAULT-PROCESSING
1000-EXIT
2000-PROJECT-MAINTENANCE
