/***********************************************************@Y30LB12*/ 00050003
 /*                                                          @Y30LB12*/ 00100003
 /* PROCEDURE NAME - READS99                                 @Y30LB12*/ 00150003
 /*                                                          @Y30LB12*/ 00200003
 /* FUNCTION - CALL SCAN READ KEYWORD/PARAMETER SUBROUTINE   @Y30LB12*/ 00250003
 /*            ICGDSS99.  PICK UP STARTING COLUMN FOR THIS   @Y30LB12*/ 00300003
 /*            SCAN AND STARTING COLUMN FOR NEXT ENTRY INTO  @Y30LB12*/ 00350003
 /*            ICGDSS99.  IF TERMINATING ERROR OCCURS IN     @Y30LB12*/ 00400003
 /*            ICGDSS99, SET 'LASTPARM' TO TERMINATE IN THIS @Y30LB12*/ 00450003
 /*            MODULE ON NEXT READ OF KEYWORD                @Y30LB12*/ 00500003
 /*                                                          @Y30LB12*/ 00550003
 /***********************************************************@Y30LB12*/ 00600003
 READS99:  PROCEDURE;                                      /*@Y30LB12*/ 00650003
           GEN (LINK EP=ICGDSS99);      /* TO SCAN KEYWORD/PARAMETER */ 00700003
           /*************************************************@Y30LB12*/ 00750003
           /* IF 'ENDSCAN' BIT IS ON, WE ENCOUNTERED SOME    @Y30LB12*/ 00800003
           /* DISASTEROUS CONDITION THAT TERMINATED THE SCAN @Y30LB12*/ 00850003
           /* OF THIS CONTROL STATEMENT.  THERE ERRORS ARE   @Y30LB12*/ 00900003
           /* ASSOCIATED WITH SCANNING INTO COLUMN 73 AND    @Y30LB12*/ 00950003
           /* WITH FINDING A FORMAT ERROR IN THE             @Y30LB12*/ 01000003
           /* CONTINUATION STATEMENT.  SHOULD SUCH A         @Y30LB12*/ 01050003
           /* CONDITION OCCUR, WE TERMINATE SCAN OF THE      @Y30LB12*/ 01100003
           /* CONTROL STATEMENT UPON READ OF THE NEXT        @Y30LB12*/ 01150003
           /* KEYWORD.                                       @Y30LB12*/ 01200003
           /*************************************************@Y30LB12*/ 01350003
           IF ENDSCAN = '1'B                               /*@Y30LB12*/ 01400003
             THEN                                          /*@Y30LB12*/ 01450003
               LASTPARM = '1'B;                            /*@Y30LB12*/ 01500003
             ELSE;                                         /*@Y30LB12*/ 01550003
           END READS99;                                    /*@Y30LB12*/ 01600003
 @ EJECT;                                                               01650003