TS/MP Management Programming Manual (G06.24+, H06.03+)

SPI Programming Considerations
NonStop TS/MP Management Programming Manual—540082-001
3-12
Extensible Structured Tokens
Corresponding COBOL level-01 variable for ZPWY-DDL-DEF-SCASSIGN:
Corresponding TACL structure variable for ZPWY-DDL-DEF-SCASSIGN:
01 ZPWY-DDL-DEF-SCASSIGN.
02 ZGUARDIANFILE
03 Z-SYSNAME.
04 Z-C PIC X(8).
04 Z-S REDEFINES Z-C.
05 Z-I NATIVE-2
OCCURS 4 TIMES.
04 Z-B REDEFINES Z-C PIC X
OCCURS 8 TIMES.
03 Z-LOCALNAME.
04 Z-DISC.
05 Z-VOLUME.
06 Z-C PIC X(8).
06 Z-S REDEFINES Z-C.
07 Z-I NATIVE-2
OCCURS 4 TIMES.
06 Z-B REDEFINES Z-C PIC X
OCCURS 8 TIMES.
...
...
...
02 ZBLOCKSIZE NATIVE-2.
ZPWY^DDL^DEF^SCASSIGN Struct
Begin
FNAME32 ZGUARDIANFILE;
STRUCT ZEXTENTSIZE;
Begin
INT2 ZPRIMARY;
INT2 ZSECONDARY;
End;
INT2 ZFILECODE;
INT ZEXCLUSION;
INT ZACCESS;
INT ZRECORDSIZE;
INT ZBLOCKSIZE;