*        %GOTO PGPBBSL  ; /*                                            03000000
         MACRO                                                          06000000
         IKJPGPB                                                        09000000
PGPB     DSECT                                                          12000000
*********************************************************************** 15000000
*    THE PUTGET PARAMETER BLOCK (PGPB) IS POINTED TO BY THE LIST      * 18000000
*    PASSED TO PUTGET.  PUTGET USES IT FOR CONTROL AS WELL AS         * 21000000
*    RETURNING INFORMATION.                                           * 24000000
*********************************************************************** 27000000
         DS    0F                                                       30000000
         DS    CL12     INTERNAL TO GETLINE/PUTLINE                     33000000
PGPBIBUF DS    A        PTR TO OBTAINED INPUT LINE                      36000000
**/                                                                     39000000
         MEND                                                           42000000
* %PGPBBSL :  ;                                                         45000000
* %IF PGPBSTORAGE='' %THEN           /*                     @ZA29467 */ 48000000
*   %PGPBSTORAGE='BASED(PGPBPTR)';   /*                     @ZA29467 */ 48050000
* DECLARE                                                               48100000
*   1 PGPB PGPBSTORAGE,              /*                     @ZA29467 */ 48150000
* /* *************************************************************** */ 54000000
* /* THE PUTGET PARAMETER BLOCK (PGPB) IS POINTED TO BY THE LIST     */ 57000000
* /* PASSED TO PUTGET.  PUTGET USES IT FOR CONTROL AS WELL AS        */ 60000000
* /* RETURNING INFORMATION.                                          */ 63000000
* /* *************************************************************** */ 66000000
*                                                                       69000000
*    2 *        CHAR(12)  BDY(WORD),                                    72000000
*                                    /* INTERNAL TO GETLINE/PUTLINE  */ 75000000
*    2 PGPBIBUF PTR(31);             /* PTR TO OBTAINED INPUT LINE   */ 78000000
*                                                                       81000000