COBOL Source Code
401_PARA_GRAPH.
PERFORM FAR_AWAY_RTN
IF ERROR_CODE <> 0
MOVE "401_PARA_GRAPH" TO PM_ERROR_MSG
PERFORM PGM_ERROR_RTN
PERFORM 900_PGM_EXIT
ELSE
MOVE DATA_SOME TO OUTBUF_ROW1
MOVE DATA_MORE TO OUTBUF_ROW2
PERFORM OUTBUF_RTN
IF OUTBUF_ERROR <> 0
MOVE "401_PARA_GRAPH" TO PM_ERROR_MSG
MOVE OUTBUF_ERROR TO ERROR_CODE
PERFORM PGM_ERROR_RTN
PERFORM 900_PGM_EXIT
ELSE
MOVE 20 TO OUTBUF_CNT
PERFORM OUTBUF_FILL_RTN
UNTIL OUTBUF_CNT <= 0
.
402_PARA_NAME.
MOVE SPACES TO OUTBUF_ROW1
500-RTN.
MOVE 0 TO III
.