*        %GOTO GTPBBSL  ; /*                                            02000000
         MACRO                                                          04000000
         IKJGTPB                                                        06000000
GTPB     DSECT                                                          08000000
*********************************************************************** 10000000
*    THE GETLINE PARAMETER BLOCK (GTPB) IS POINTED TO BY THE          * 12000000
*    PARAMETER LIST PASSED FROM THE INVOKER TO GETLINE.  GETLINE      * 14000000
*    USES IT FOR CONTROL AS WELL AS RETURNING INFORMATION             * 16000000
*********************************************************************** 18000000
         SPACE                                                          20000000
         DS    CL4      INTERNAL GETLINE USAGE                          22000000
GTPBIBUF DS    A        ADDR OF OBTAINED INPUT LINE                     24000000
**/                                                                     34000000
         MEND                                                           36000000
* %GTPBBSL :  ;                                                         38000000
* %IF GTPBSTORAGE='' %THEN           /*                     @ZA29467 */ 40000000
*   %GTPBSTORAGE='BASED(GTPBPTR)';   /*                     @ZA29467 */ 40050000
* DECLARE                                                               40100000
*   1 GTPB GTPBSTORAGE,              /*                     @ZA29467 */ 40150000
* /* *************************************************************** */ 44000000
* /* THE GETLINE PARAMETER BLOCK (GTPB) IS POINTED TO BY THE         */ 46000000
* /* PARAMETER LIST PASSED FROM THE INVOKER TO GETLINE.  GETLINE     */ 48000000
* /* USES IT FOR CONTROL AS WELL AS RETURNING INFORMATION            */ 50000000
* /* *************************************************************** */ 52000000
*                                                                       54000000
*                                                                       56000000
*                                                                       58000000
*                                                                       60000000
*                                                                       62000000
*                                                                       64000000
*                                                                       66000000
*                                                                       68000000
*                                                                       70000000
*                                                                       72000000
*    2 *        CHAR(4),             /* INTERNAL GETLINE USAGE       */ 74000000
*    2 GTPBIBUF PTR(31);             /* ADDR OF OBTAINED INPUT LINE  */ 76000000
*                                                                       90000000