NAME       : HCPSPGBK
 DESCRIPTION: Spool File Get Block
 DSECT      : SPGBK
 FUNCTION   : The SPGBK contains information used to get
              spool file data via the *SPL system service
 LOCATED BY : Passed by virtual machine application via
              IUCV SEND
 CREATED BY : Virtual machine application
 DELETED BY : Virtual machine application

 SPGBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      SPGBK          Spool File Get Block
0000    0 Character    8 SPGUSER        Userid owing file to be selected
0008    8 Signed       2 SPGSPID        Spoolid of file to be selected
000A   10 Bitstring    1 SPGQUEUE       D*1 Specification of file queue
             Settings for SPGQUEUE
          00000001       SPGRDR         1 Select RDR queue
          00000002       SPGPRT         2 Select PRT queue
          00000003       SPGPUN         3 Select PUN queue
          00000004       SPGSDF         4 Select SDF queue
000B   11 Bitstring    1 SPGOPTN        D*2 SELECT and GET flag byte
          1... ....      SPGSPEC        X'80' SPGSPEC Select specific
                                        file (SPGUSER and SPGSPID)
          .1.. ....      SPGNEXT        X'40' SPGNEXT Select next unseen
                                        file (SPGUSER and SPGQUEUE)
          ..1. ....      SPGRESET       X'20' SPGRESET Reset all seen
                                        bits (SPGUSER and SPGQUEUE)
          ...1 ....      SPGGSFB        X'10' SPGGSFB Return SFBLOK data
          .... 1...      SPGG3800       X'08' SPGG3800 Return 3800 data
          .... .1..      SPGGSPLK       X'04' SPGGSPLK Return SPLINK data
                                        (SPGSPLKS and SPGSPLKN)
          .... ..1.      SPGGXAB        X'02' SPGGXAB Return XAB data
          .... ...1      SPGNOSEL       X'01' SPGNOSEL Request for data
                                        only, file remains unselected
          1... ....      SPGPURGE       X'80' SPGPURGE Purge the file
          .1.. ....      SPGUHOLD       X'40' SPGUHOLD Put the file in
                                        user hold
          ..1. ....      SPGSHOLD       X'20' SPGSHOLD Put the file in
                                        system hold
          ...1 ....      SPGDECR        X'10' SPGDECR Decrement the copy
                                        count
000C   12 Signed       4 *              Reserved
0010   16 Signed       4 SPGSPLKS       Starting SPLINK number to return
0014   20 Signed       4 SPGSPLKN       Number of SPLINKS to return
0018   24 Address      4 SPGSFBA        Address to return SFBLOK data
001C   28 Address      4 SPG3800A       Address to return 3800 data
0020   32 Address      4 SPGSPLKA       Address to return SPLINK data
0024   36 Address      4 SPGXABA        Address to return XAB data
0028   40 Bitstring    1 SPGSFBL        D*3 Length of SFBLOK data
                                        requested (d-words)
0029   41 Bitstring    1 SPG3800L       D*4 Length of 3800 data requested
                                        (d-words)
002A   42 Signed       2 SPGXABL        Len of XAB data requested (bytes)
002C   44 Signed       4 *              Reserved
          00000030       SPGSIZEB       (*-SPGBK) Size in bytes
          00000006       SPGSIZED       (*-SPGBK+7)/8 Size in d-words

          
*** SPGBK - Spool File Get Block
*
*     +-------------------------------------------------------+
*   0 |                       SPGUSER                         |
*     +-------------+------+------+---------------------------+
*   8 |  SPGSPID    |:QUEUE|:OPTN |///////////////////////////|
*     +-------------+------+------+---------------------------+
*  10 |         SPGSPLKS          |         SPGSPLKN          |
*     +---------------------------+---------------------------+
*  18 |         SPGSFBA           |         SPG3800A          |
*     +---------------------------+---------------------------+
*  20 |         SPGSPLKA          |         SPGXABA           |
*     +------+------+-------------+---------------------------+
*  28 |:SFBL |:3800L|  SPGXABL    |///////////////////////////|
*     +------+------+-------------+---------------------------+
*  30
*
*** SPGBK - Spool File Get Block

 
Symbol         Dspl Value
-------------- ---- -----
SPGDECR        000B 10
SPGGSFB        000B 10
SPGGSPLK       000B 04
SPGGXAB        000B 02
SPGG3800       000B 08
SPGNEXT        000B 40
SPGNOSEL       000B 01
SPGOPTN        000B
SPGPRT         000A 00000002
SPGPUN         000A 00000003
SPGPURGE       000B 80
SPGQUEUE       000A
SPGRDR         000A 00000001
SPGRESET       000B 20
SPGSDF         000A 00000004
SPGSFBA        0018
SPGSFBL        0028
SPGSHOLD       000B 20
SPGSIZEB       002C 00000030
SPGSIZED       002C 00000006
SPGSPEC        000B 80
SPGSPID        0008
SPGSPLKA       0020
SPGSPLKN       0014
SPGSPLKS       0010
SPGUHOLD       000B 40
SPGUSER        0000
SPGXABA        0024
SPGXABL        002A
SPG3800A       001C
SPG3800L       0029