Author: Tracy Hansen
Posted: Wed Apr 05, 2017 3:07 am (GMT 5.5)
In Working Storage:
05 WS-TD-QUEUE PIC X(04) VALUE 'IMPT'.
...
05 WS-IMPORTED-LENGTH PIC S9(4) COMP VALUE +0.
...
01 WS-IMPORTED-RECORD.
05 WS-IMPORTED-RCD.
10 WS-IMPORTED-TYPE PIC X(05).
10 FILLER PIC X(10002).
In the Procedure Division:
MOVE +10007 TO WS-IMPORTED-LENGTH.
MOVE SPACES TO WS-IMPORTED-RECORD.
EXEC CICS
READQ TD QUEUE(WS-TD-QUEUE)
INTO(WS-IMPORTED-RCD)
LENGTH(WS-IMPORTED-LENGTH)
END-EXEC.
Data Set Information in TSO:
General Data
Management class . . : STANDEF
Storage class . . . : STANDARD
Volume serial . . . : AKDSTF
Device type . . . . : 3390
Data class . . . . . : STANDARD
Organization . . . : PS
Record format . . . : VB
Record length . . . : 10011
Block size . . . . : 10015
1st extent cylinders: 1
Secondary cylinders : 1
Data set name type :
SMS Compressible. . : NO
I do not know why the physical data set is defined in TSO as 10011 and the TDQ and variables set to 10007, but I do know they are the same in production and working.
Please let me know if you have any other questions.
Thank you for your assistance.
Posted: Wed Apr 05, 2017 3:07 am (GMT 5.5)
In Working Storage:
05 WS-TD-QUEUE PIC X(04) VALUE 'IMPT'.
...
05 WS-IMPORTED-LENGTH PIC S9(4) COMP VALUE +0.
...
01 WS-IMPORTED-RECORD.
05 WS-IMPORTED-RCD.
10 WS-IMPORTED-TYPE PIC X(05).
10 FILLER PIC X(10002).
In the Procedure Division:
MOVE +10007 TO WS-IMPORTED-LENGTH.
MOVE SPACES TO WS-IMPORTED-RECORD.
EXEC CICS
READQ TD QUEUE(WS-TD-QUEUE)
INTO(WS-IMPORTED-RCD)
LENGTH(WS-IMPORTED-LENGTH)
END-EXEC.
Data Set Information in TSO:
General Data
Management class . . : STANDEF
Storage class . . . : STANDARD
Volume serial . . . : AKDSTF
Device type . . . . : 3390
Data class . . . . . : STANDARD
Organization . . . : PS
Record format . . . : VB
Record length . . . : 10011
Block size . . . . : 10015
1st extent cylinders: 1
Secondary cylinders : 1
Data set name type :
SMS Compressible. . : NO
I do not know why the physical data set is defined in TSO as 10011 and the TDQ and variables set to 10007, but I do know they are the same in production and working.
Please let me know if you have any other questions.
Thank you for your assistance.