TS/MP 2.5 Management Programming Manual

BEGIN
STRUCT Z^SYSNAME;
BEGIN
STRUCT Z^C;
BEGIN STRING BYTE [0:7]; END;
STRUCT Z^S = Z^C;
BEGIN
INT Z^I[0:3];
END;
STRING Z^B[0:7] = Z^C;
END;
STRUCT Z^LOCALNAME;
BEGIN
STRUCT Z^DISC;
BEGIN
STRUCT Z^VOLUME;
BEGIN
STRUCT Z^C;
BEGIN STRING BYTE [0:7]; END;
STRUCT Z^S = Z^C;
BEGIN
INT Z^1[0:3];
END;
...
...
...
INT ZBLOCKSIZE;
END;
Corresponding COBOL level-01 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.
Corresponding TACL structure variable for ZPWY-DDL-DEF-SCASSIGN:
ZPWY^DDL^DEF^SCASSIGN Struct
Begin
FNAME32 ZGUARDIANFILE;
STRUCT ZEXTENTSIZE;
Begin
INT2 ZPRIMARY;
INT2 ZSECONDARY;
End;
INT2 ZFILECODE;
36 SPI Programming Considerations