MAIN LINE
IGNORE CONDITION
STARTBR
READPREV
3035-BROWSE-USERS-BKWD
ENDBR
3030-BACKUP-USERS
STARTBR
READNEXT
3025-BROWSE-RECS-FWD
ENDBR
3020-GET-NEXT-USERS
3020-GET-NEXT-USERS
3000-GET-USERS
11010-LOAD-OUTPUT-TABLE
11000-LOAD-MAPSET-FOR-OUTPUT
SEND MAP 'PM90'
10000-SEND-FRESH-MAP
1000-DEFAULT-PROCESSING
RECEIVE MAP 'PM90'
2100-CALC-CURSOR-POSITION
XCTL 'MCLPP91'
2000-SSUSER-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-SSUSER-MAINTENANCE
