STATUS statement
With the STATUS statement, you establish print options and name the PCB that you want subsequent calls to be issued against.
The following table shows the format of the STATUS statement.
| Column | Function | Code | Description |
|---|---|---|---|
| 1 | Identifies control statement | S | STATUS statement. |
| 2 | Output device option | b | Use PRINTDD when in a DL/I region; use I/O PCB in MPP region. |
| 1 | Use PRINTDD in MPP region if DD statement is provided; otherwise, use I/O PCB. | ||
| A | Same as if 1, and disregard all other fields in this STATUS statement. | ||
| 3 | Print comment option | b | Do not print. |
| 1 | Print for each call. | ||
| 2 | Print only if compare done and unequal. | ||
| 4 | Print AIB option | b | Do not print. |
| 1 | Print for each call. | ||
| 2 | Print only if compare done and unequal. | ||
| 5 | Print call option | b | Do not print. |
| 1 | Print for each call. | ||
| 2 | Print only if compare done and unequal. | ||
| 6 | Reserved | b | |
| 7 | Print compare option | b | Do not print. |
| 1 | Print for each call. | ||
| 2 | Print only if compare done and unequal. | ||
| 8 | Reserved | b | |
| 9 | Print PCB option | b | Do not print. |
| 1 | Print for each call. | ||
| 2 | Print only if compare done and unequal. | ||
| 10 | Reserved | b | |
| 11 | Print segment option | b | Do not print. |
| 1 | Print for each call. | ||
| 2 | Print only if compare done and unequal. | ||
| 12 | Set task and real time | b | Do not time |
| 1 | Time each call. | ||
| 2 | Time each call if compare done and unequal. | ||
| 13-14 | Reserved | b | |
| 15 | PCB selection option | 1 | PCB name passed in columns 16-23 (use option 1). |
| 2 | DBD name passed in columns 16-23 (use option 2). | ||
| 3 | Relative DB PCB passed in columns 16-23 (use option 3). | ||
| 4 | Relative PCB passed in columns 16-23 (use option 4). | ||
| 5 | $LISTALL passed in columns 16-23 (use option 5). | ||
| b | If column 15 is blank, DFSDDLT0 selects options 2 through 5 based on content of columns 16-23. | ||
| Opt. 1 |
PCB selection |
alpha | These columns must contain the name of the label on the PCB at PSBGEN, or the name specified on the PCBNAME= operand for the PCB at PSBGEN time. |
| Opt. 2 |
PCB selection |
b |
The default PCB is the first database PCB in the PSB. If columns 16-23 are blank, current PCB is used. If DBD name is specified, this must be the name of a database DBD in the PSB. |
| Opt. 3 |
PCB selection |
b |
When columns 16 through 18 are blank, columns (19-23) of this field are interpreted as the relative number of the DB PCB in the PSB. This number must be right-justified to column 23, but need not contain leading zeros. |
| Opt. 4 |
PCB selection |
b |
When columns 16 through 18 = 'TPb', columns (19-23) of this field are interpreted as the relative number of the PCB from the start of the PCB list. This number must be right-justified to column 23, but need not contain leading zeros. I/O PCB is always the first PCB in the PCB list in this program. |
| Opt. 5 |
List all PCBs in the PSB | $LISTALL | Prints out all PCBs in the PSB for test script. |
| 24 | Print status option | b | Use print options to print this STATUS statement. |
| 1 | Do not use print options in this statement; print this STATUS statement. | ||
| 2 | Do not print this STATUS statement but use print options in this statement. | ||
| 3 | Do not print this STATUS statement and do not use print options in this statement. | ||
| 25-28 | PCB processing option | xxxx | This is optional and is only used when two PCBs have the same name but different processing options. If not blank, it is used in addition to the PCB name in columns 16 through 23 to select which PCB in the PSB to use. |
| 29 | Reserved | b | |
| 30-32 | AIB interface | AIB | Indicates that the AIB interface is used and the
AIB is passed rather than passing the PCB. (Passing the PCB is the
default.) Note: When the AIB interface is used, the PCB must be
defined at PSBGEN with PCBNAME=name. IOPCB is the PCB name used for
all I/O PCBs. DFSDDLT0 recognizes that name when column 15 contains
a 1 and columns 16 through 23 contain IOPCB.
|
| 33 | Reserved | ||
| 37-72 | Reserved | ||
| 73-80 | Sequence indication | nnnnnnnn | For SYSIN2 statement override. |
If DFSDDLT0 does not encounter a STATUS statement, all default print options (columns 3 through 12) are 2 and the default output device option (column 2) is 1. You can code a STATUS statement before any call sequence in the input stream, changing either the PCB to be referenced or the print options.
The referenced PCB stays in effect until a subsequent STATUS statement selects another PCB. However, a call that must be issued against an I/O PCB (such as LOG) uses the I/O PCB for that call. After the call, the PCB changes back to the original PCB.
Examples of STATUS statement
To Print Each CALL Statement: The following STATUS statement tells DFSDDLT0 to print these options: COMMENTS, CALL, COMPARE, PCB, and SEGMENT DATA for all calls.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
S 1 1 1 1 1To Print Each CALL Statement, Select a PCB: The following STATUS statements tell DFSDDLT0 to print the COMMENTS, CALL, COMPARE, PCB, and SEGMENT DATA options for all calls, and select a PCB.
The 1 in column 15 is required for PCBNAME. If omitted, the PCBNAME is treated as a DBDNAME.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
S 1 1 1 1 1 1PCBNAME
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
S 1 1 1 1 1 1PCBNAME AIBb
To print each CALL statement, select PCB based on a DBD name: The following STATUS statements tell DFSDDLT0 to print the COMMENTS, CALL, COMPARE, PCB, and SEGMENT DATA options for all calls, and select a PCB by a DBD name.
The 2 in column 15 is optional.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
S 1 1 1 1 1 2DBDNAME
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
S 1 1 1 1 1 2DBDNAME AIBb
If you do not use the AIB interface, you do not need to change STATUS statement input to existing streams; existing call functions will work just as they have in the past. However, if you want to use the AIB interface, you must change the STATUS statement input to existing streams to include AIB in columns 30 through 32. The existing DBD name, Relative DB PCB, and Relative PCB will work if columns 30 through 32 contain AIB and the PCB has been defined at PSBGEN with PCBNAME=name.