*COMDECK  MAST1EXT
00001 **********  DATA FILE (MAST1) I/O  - MAST1EXT ***********         09/16/77
00002 *                                                                 MAST1EXT
00003 *    EXTRACT FIELD IS A COMMON SUBROUTINE USED BY OTHER              LV001
00004 *    DATA I/O INCLUDES-USE WITH ALL DATA I/O FUNCTIONS               CL**2
00005 *                                                                    CL**2
00006 *    EXTRACT AN NN LENGTH FIELD FROM A LINE                          CL**2
00007 ******************************************************************MAST1EXT
00008  EXTRACT-FIELD.                                                   MAST1EXT
00009      MOVE "Y" TO EXTRACT-SW.                                      MAST1EXT
00010      ADD DATA-SUB  WORK-LENGTH GIVING TALLY.                         CL**2
00011      IF TALLY GREATER THAN DATA-LIMIT                                CL**2
00012          MOVE 2 TO DATA-RETURN-CODE                                  CL**2
00013          GO TO EXTRACT-FIELD-XIT.                                    CL**2
00014      MOVE 01 TO WORK-SUB.                                         MAST1EXT
00015  EXTRACT-LOOP.                                                    MAST1EXT
00016      ADD 1 TO DATA-SUB.                                           MAST1EXT
00017      MOVE DATA-DETAIL (DATA-SUB) TO LINE-DETAIL (WORK-SUB).       MAST1EXT
00018      ADD 1 TO WORK-SUB.                                           MAST1EXT
00019      IF WORK-SUB GREATER THAN WORK-LENGTH                         MAST1EXT
00020          GO TO EXTRACT-FIELD-XIT.                                 MAST1EXT
00021      GO TO EXTRACT-LOOP.                                          MAST1EXT
00022  EXTRACT-FIELD-XIT.                                               MAST1EXT
00023      EXIT.                                                        MAST1EXT
00024                                                                    MAST1EX
