*        %GOTO PTPBBSL  ; /*                                            01000000
         MACRO                                                          02000000
         IKJPTPB                                                        03000000
PTPB     DSECT                                                          04000000
*********************************************************************** 05000000
*    THE PUTLINE PARAMETER BLOCK (PTPB) IS POINTED TO BY THE PARAM.   * 06000000
*    LIST PASSED TO PUTLINE.  IT IS USED TO RETURN PERTINENT INFO.    * 07000000
*    AS WELL AS CONTROL PUTLINE FUNCTIONS                             * 08000000
*********************************************************************** 09000000
         SPACE                                                          10000000
         DS    0F                                                       11000000
         DS    CL4      INTERNAL PUTLINE USAGE                          12000000
PTPBOPUT DS    A        ADDRESS OF OUTPUT LINE DESCRIPTOR OR DATA LINE  12010000
PTPBFLN  DS    A        PTR TO FORMATTED LINE RETURNED WHEN OUTPUT=     13000000
*                       ADDR,FORMAT) IS SPECIFIED                       14000000
**/                                                                     19000000
         MEND                                                           20000000
*     %PTPBBSL :   ;                                                    21000000
* %IF PTPBSTORAGE='' %THEN            /*                    @ZA29467 */ 22000000
*   %PTPBSTORAGE='BASED(PTPBPTR)';    /*                    @ZA29467 */ 22050000
* DECLARE                                                               22100000
*   1 PTPB BDY(WORD) PTPBSTORAGE,     /*                    @ZA29467 */ 22150000
* /* *************************************************************** */ 24000000
* /* THE PUTLINE PARAMETER BLOCK (PTPB) IS POINTED TO BY THE PARAM.  */ 25000000
* /* LIST PASSED TO PUTLINE.  IT IS USED TO RETURN PERTINENT INFO.   */ 26000000
* /* AS WELL AS CONTROL PUTLINE FUNCTIONS                            */ 27000000
* /* *************************************************************** */ 28000000
*                                                                       29000000
*                                                                       30000000
*                                                                       31000000
*                                                                       32000000
*                                                                       33000000
*                                                                       34000000
*                                                                       35000000
*                                                                       36000000
*                                                                       37000000
*                                                                       38000000
*                                                                       39000000
*    2 *        CHAR(4)  BDY(WORD),                                     40000000
*                                    /* INTERNAL PUTLINE USAGE       */ 41000000
*    2 PTPBOPUT  PTR(31),            /* ADDRESS OF OUTPUT LINE          41010000
                                        DESCRIPTOR OR DATA LINE      */ 41020000
*    2 PTPBFLN  PTR(31);             /* PTR TO FORMATTED LINE           42000000
*                                       RETURNED WHEN OUTPUT=           43000000
*                                       ADDR,FORMAT) IS SPECIFIED    */ 44000000
*                                                                       51000000