NAME       : HCPLBPBK
 DESCRIPTION: LOADBUF Parameter Block
 DSECT      : LBPBK
 FUNCTION   : Passes the information needed by HCPCSB to
              load a Forms Control Buffer or a Universal
              Character Set in from the specified image
              library.
 LOCATED BY : R1 on entry to HCPCSBIN.
 CREATED BY : HCPCSS  -  START command
              HCPLBF  -  LOADBUF command
              HCPRSP  -  Real printer processing
 DELETED BY : HCPCSS  -  After return from HCPCSB
              HCPLBF  -  After return from HCPCSB
              HCPRSP  -  After return from HCPCSB
 RELOCATION CONSIDERATIONS : None

 LBPBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      LBPBK          LOADBUF Parameter Block
       NOTES      : The following bit definitions must match those in
             the CSBINFO work area field CSBFLAGS for those
             flags common to both areas (FCB, UCS, FOLD, VER, &
             INDX).  If a change is made here, the corresponding
             change MUST also be made to the definition of the
             CSBFLAGS byte of work area CSBINFO, in module
             HCPCSB.
0000    0 Bitstring    1 LBPINFO        Information for LOADBUF
          1... ....      LBPFCB         X'80' LBPFCB Load an FCB
          .1.. ....      LBPUCS         X'40' LBPUCS Load a UCS
          ..1. ....      LBPFOLD        X'20' LBPFOLD FOLD characters
                                        into uppercase
          ...1 ....      LBPVER         X'10' LBPVER VERify specified on
                                        LOADBUF
          .... 1...      LBPINDX        X'08' LBPINDX Start printing in
                                        position specified by LBPINDEX
          .... .1..      LBPLBF         X'04' LBPLBF Buffer load
                                        occurring from LBF.
          .... ..1.      LBPRSP         X'02' LBPRSP Buffer load
                                        occurring from RSP.
          .... ...1      LBPPOS         X'01' LBPPOS POSITION TO TOP OF
                                        PAGE
0001    1 Bitstring    1 LBPINF2        More information for LOADBUF
          1... ....      LBPNOMSG       X'80' LBPNOMSG Don't print
                                        COMMAND COMPLETE msg
          .1.. ....      LBPIMGPR       X'40' LBPIMGPR Problem opening
                                        Image Lib in CSBIN
0002    2 Bitstring    1 * (2)          Reserved for IBM use
0004    4 Bitstring    2 LBPINDEX       INDEX value
0006    6 Bitstring    1 * (2)          Reserved for IBM use
0008    8 Signed       4 LBPRDEV        Rdev of device to load FCB or UCS
                                        onto
000C   12 Signed       4 LBPNAME        Name of FCB or UCS to be loaded
0010   16 Dbl-Word     8 LBPIMG         Image library where FCB or UCS
                                        can be found
          00000003       LBPSIZE        (*-LBPBK+7)/8 Size in double
                                        words

          
*** LBPBK - LOADBUF Parameter Block
*
*     +------+------+-------------+-------------+-------------+
*   0 |:INFO |:INF2 |/////////////|  LBPINDEX   |/////////////|
*     +------+------+-------------+-------------+-------------+
*   8 |         LBPRDEV           |         LBPNAME           |
*     +---------------------------+---------------------------+
*  10 |                        LBPIMG                         |
*     +-------------------------------------------------------+
*  18
*
*** LBPBK - LOADBUF Parameter Block

 
Symbol         Dspl Value
-------------- ---- -----
LBPFCB         0000 80
LBPFOLD        0000 20
LBPIMG         0010
LBPIMGPR       0001 40
LBPINDEX       0004
LBPINDX        0000 08
LBPINFO        0000
LBPINF2        0001
LBPLBF         0000 04
LBPNAME        000C
LBPNOMSG       0001 80
LBPPOS         0000 01
LBPRDEV        0008
LBPRSP         0000 02
LBPSIZE        0010 00000003
LBPUCS         0000 40
LBPVER         0000 10