*COMDECK  MAST3INT
00001                                                                    MAST3IN
00002 *****  CONTROL FILE I/O *****                                     MAST3INT
00003 ******************************************************************   LV002
00004 ******************************************************************MAST3INT
00005 *    READ FIRST FIELD TABLE RECORD OF SPECIFIC ENTRY TYPE        *MAST3INT
00006 ******************************************************************MAST3INT
00007 ******************************************************************MAST3INT
00008  READ-FIELD-ENTRY.                                                MAST3INT
00009      MOVE "E" TO CON-ENTRY-FUNCTION.                              MAST3INT
00010      PERFORM CON-READ THRU CON-READ-XIT.                             CL**2
00011      MOVE CTL-RECORD-5 TO FIELD-TABLE.                               CL**2
00012  READ-FIELD-ENTRY-XIT.                                            MAST3INT
00013      EXIT.                                                        MAST3INT
00014 ******************************************************************MAST3INT
00015 ******************************************************************MAST3INT
00016 *    READ NEXT SEQUENTIAL FIELD TABLE ENTRY                      *MAST3INT
00017 ******************************************************************MAST3INT
00018 ******************************************************************MAST3INT
00019  READ-NEXT-FIELD.                                                 MAST3INT
00020      MOVE "N" TO CON-ENTRY-FUNCTION.                              MAST3INT
00021      PERFORM CON-READ THRU CON-READ-XIT.                             CL**2
00022      MOVE CTL-RECORD-5 TO FIELD-TABLE.                               CL**2
00023  READ-NEXT-FIELD-XIT.                                             MAST3INT
00024      EXIT.                                                        MAST3INT
00025 ******************************************************************MAST3INT
00026 ******************************************************************MAST3INT
00027 *    READ SPECIFIC (ENTRY AND CATEGORY) FIELD TABLE RECORD       *MAST3INT
00028 ******************************************************************MAST3INT
00029 ******************************************************************MAST3INT
00030  READ-FIELD-TABLE.                                                MAST3INT
00031      MOVE "C" TO CON-ENTRY-FUNCTION.                              MAST3INT
00032      PERFORM CON-READ THRU CON-READ-XIT.                             CL**2
00033      MOVE CTL-RECORD-5 TO FIELD-TABLE.                               CL**2
00034  READ-FIELD-TABLE-XIT.                                            MAST3INT
00035      EXIT.                                                        MAST3INT
00036                                                                    MAST3IN
