/***********************************************************@Y30LB12*/ 00050003
 /*                                                          @Y30LB12*/ 00100003
 /* PROCEDURE NAME - PUTIT2                                  @Y30LB12*/ 00150003
 /*                                                          @Y30LB12*/ 00200003
 /* FUNCTION - CALL ICGDSMSG, MESSAGE PRINT SUBROUTINE, TO   @Y30LB12*/ 00250003
 /*            PUT TERMINATING MESSAGE FOR WHICH MESSAGE     @Y30LB12*/ 00300003
 /*            TEXT IS IN ICGDSMSG.  'MSGNO' INDICATES THE   @Y30LB12*/ 00350003
 /*            OFFSET OF THE MESSAGE TEXT.                   @Y30LB12*/ 00400003
 /*                                                          @Y30LB12*/ 00450003
 /***********************************************************@Y30LB12*/ 00500003
 PUTIT2:   PROCEDURE;                                      /*@Y30LB12*/ 00550003
           STOPSCAN = '1'B;                                /*@Y30LB12*/ 00600003
           TERMINAT = TERMINAT + 1;                        /*@Y30LB12*/ 00650003
           GEN (LINK  EP=ICGDSMSG);                        /*@Y30LB12*/ 00700003
           END PUTIT2;                                     /*@Y30LB12*/ 00750003
 @ EJECT;                                                               00800003