MAIN LINE

IGNORE CONDITION

SEND MAP 'PM01'

10000-SEND-FRESH-MAP

RECEIVE MAP 'PM01'

RETURN

XCTL 'MCLPP20'

XCTL 'MCLPP05'

XCTL 'MCLPP10'

XCTL 'MCLPP50'

XCTL 'MCLPP40'

XCTL 'MCLPP45'

XCTL 'MCLPP90'

10000-SEND-FRESH-MAP

100-SELECT-PROCESSING

SEND TEXT

RETURN

RETURN

0000-START-PROGRAM-HERE

0000-EXIT

100-SELECT-PROCESSING

100-EXIT

1000-LOAD-MAP

1000-EXIT

10000-SEND-FRESH-MAP

10000-EXIT

Mclpp01.htm