IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need help on TDQ load from file using CECI command


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
subratarec

Active User


Joined: 22 Dec 2007
Posts: 116
Location: Bangalore

PostPosted: Wed Jun 13, 2018 11:32 pm
Reply with quote

Hi,

I need suggestion on loading data into TDQ. Reason behind, we have trigger level as 1. Normally data will come from outside (distributed platform), then data will pass through program and then gets loaded into TDQ. As we are just testing so trying to load the test data into TDQ on our own and then testing triggering program.

We tried below command for one of our TDQ and we successfully loaded the data into the TDQ. Here the record length was only 20 bytes.

Code:
CECI WRITEQ TD QUEUE('TDQ name') FROM('aaaaaaaaaaaaaaa') LENGTH(20)


But there is another TDQ where the record of length 1700 should be loaded and loading 1700 length of data in above way is not possible. We have one testing file (already defined in CICS region whose length is 1700) and one line record is there in that file. So thought if we can give file name in FROM to directly load the data from the file to the TDQ. But we couldn't do it.

CECI WRITEQ TD QUEUE('TDQ name') FROM(AAAAAAA) LENGTH(20)

Instead of writing the data inside the file it is writing AAAAAAA to the TDQ. So we tried below command with variable &SUB

CECI READ FILE('AAAAAAA') RIDFLD('key value') INTO(&SUB) --> ran successfully

CECI WRITEQ TD QUEUE('TDQ name') FROM(&SUB) --> getting error. System is telling that FROM is invalid.

Not sure how to proceed further. Didn't get much info so if anyone can suggest a way then it would be great.

Thanks
Back to top
View user's profile Send private message
subratarec

Active User


Joined: 22 Dec 2007
Posts: 116
Location: Bangalore

PostPosted: Wed Jun 13, 2018 11:48 pm
Reply with quote

One small correction..

CECI READ FILE('AAAAAAA') RID('key value') INTO(&SUB) --> ran successfully
Back to top
View user's profile Send private message
subratarec

Active User


Joined: 22 Dec 2007
Posts: 116
Location: Bangalore

PostPosted: Wed Jun 13, 2018 11:57 pm
Reply with quote

Below is the exact error message.. against below command

Code:
CECI WRITEQ TD QUEUE('TDQ name') FROM(&SUB)
--> getting error. System is telling that FROM is invalid.



Code:
E variable for FROM does not exist or is null
S Option FROM has been omitted or specified with an invalid value
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8569
Location: Dubuque, Iowa, USA

PostPosted: Thu Jun 14, 2018 12:22 am
Reply with quote

The format of your message in your last post implies that you are running the CECI READ and the CECI WRITEQ as different CECI transactions. This will not work since &SUB is associated with a single CECI transaction; when the READ completes &SUB has the data but when you hit PF3 (or however you quit CECI) &SUB will be lost. Try starting CECI, doing the READ command, then doing the WRITEQ command without exiting CECI.
Back to top
View user's profile Send private message
subratarec

Active User


Joined: 22 Dec 2007
Posts: 116
Location: Bangalore

PostPosted: Thu Jun 14, 2018 9:45 am
Reply with quote

Hi Robert,

Thanks! for your suggestion. Yes it is working now. As you suggested I ran first CECI read command to copy the files into temp variable and then without using PF3 I just deleted the line and wrote WRITEQ command and it worked.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Compare the file record count percent... DFSORT/ICETOOL 2
No new posts compare two file to find position/dat... SYNCSORT 2
No new posts Command line placement in DB2I panels TSO/ISPF 2
No new posts Converting a file from PD to display ... SYNCSORT 4
No new posts Record count of RECFM=U tape file DFSORT/ICETOOL 17
Search our Forums:

Back to Top