/***********************************************************@Y30LB12*/ 00050003
 /*                                                          @Y30LB12*/ 00100003
 /* PROCEDURE NAME - PUTIT1                                  @Y30LB12*/ 00150003
 /*                                                          @Y30LB12*/ 00200003
 /* FUNCTION - CALL ICGDSMSG, MESSAGE PRINT SUBROUTINE, TO   @Y30LB12*/ 00250003
 /*            PUT TERMINATING MESSAGE FOR WHICH TEXT IS NOT @Y30LB12*/ 00300003
 /*            IN ICGDSMSG BUT ALREADY BUILT IN 'OUTBUF2'    @Y30LB12*/ 00350003
 /*                                                          @Y30LB12*/ 00400003
 /***********************************************************@Y30LB12*/ 00450003
 PUTIT1:   PROCEDURE;                                      /*@Y30LB12*/ 00500003
           STOPSCAN = '1'B;                                /*@Y30LB12*/ 00550003
           PRNTBUF2 = '1'B;                                /*@Y30LB12*/ 00600003
           TERMINAT = TERMINAT + 1;                        /*@Y30LB12*/ 00650003
           GEN (LINK  EP=ICGDSMSG);                        /*@Y30LB12*/ 00700003
           PRNTBUF2 = '0'B;                                /*@Y30LB12*/ 00750003
           END PUTIT1;                                     /*@Y30LB12*/ 00800003
 @ EJECT;                                                               00850003