Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

CICS :: RE: Read of TDQ fails in LENGERR

$
0
0
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.


Viewing all articles
Browse latest Browse all 8500

Trending Articles