Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

getting AH code in GU call

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
krishna_mf

New User


Joined: 31 Jan 2007
Posts: 56
Location: banglore

PostPosted: Wed Feb 14, 2007 7:00 pm    Post subject: getting AH code in GU call
Reply with quote

hi,
when i am running the below MPP program .
For GU call i am getting return code AH
for INSRT call i am getting QH.
can any one please help me

$LTM is the logical terminal PCB

DCL 1 PCBTERM BASED($LTM),
2 QLTNAM CHAR(8),
2 QLTRES CHAR(2),
2 QLTSTC CHAR(2),
2 QLTDAT,
3 QLTJDT FIXED DEC (7),
3 QLTTIM FIXED DEC (7),
3 QLTSEQ FIXED BIN (31),
3 QLTFMT CHAR (8);

DCL 1 IOAREA,
3 LL BIN FIXED(31),
3 ZZ CHAR(2) INIT('00'X),
3 TC CHAR(09) ;

CALL PLITDLI(N3,GUC,$LTM,SIOAREA);
PUT SKIP LIST('STATUS CODE FOR GU',$LTM->QLTSTC);
CALL PLITDLI (N3,ISRTC,$LTM,IOAREA);
PUT SKIP LIST('STATUS CODE FOR LTM ISRT',$LTM->QLTSTC);
Back to top
View user's profile Send private message

Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Feb 14, 2007 8:13 pm    Post subject:
Reply with quote

Quote:
AH
Explanation:
You get this status code if you:

Specify an options list parameter that was not specified in the call list.
The program issued an ISRT call that did not include any SSAs. The ISRT call requires an SSA.
If the program was issuing a GU call to a GSAM database, the GU did not specify an RSA. RSAs are required on GU calls to GSAM databases. After this status code is returned, your position in the database is unchanged.
Programmer response:
For cause 2, correct the ISRT call by including a qualification; or for cause 3, correct the GU call by adding an RSA to the call.


Your calls are a mess.
Quote:
CALL PLITDLI(N3,GUC,$LTM,SIOAREA);
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Feb 14, 2007 8:22 pm    Post subject:
Reply with quote

BTW: the io-area I supplied you is for the message you send to another program after the CHNG-call.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Feb 14, 2007 8:34 pm    Post subject:
Reply with quote

Quote:
Code QH

QH
Explanation:
There has been a terminal symbolic error. The output logical terminal name or transaction code is unknown to IMS. Some reasons for receiving this status code are:

The program tried to insert an alternate response PCB receiving a QC status code for a GU call.
The program tried to insert to an I/O PCB that has a logical terminal name of blanks. This could occur after the program issued a GU call for a message that originated either from a batch-oriented BMP or a CPI Communications driven program.
SMB or CNT could not be found.
The program deallocated a conversation with a SETO call with the DEALLOCATE_ABEND option. Any subsequent ISRT calls are rejected with this status code.
The program issued an ISRT call without first issuing a GU call.
The logical terminal name or transaction code specified is Fast Path exclusive and is not available to this program.
The program issued an ISRT call for a segment shorter than 5 bytes.
The program issued an ISRT call for a SPA shorter than 6 bytes.
The logical terminal name or transaction code has leading blanks, instead of being left-justified.
Programmer response:
Check the logical terminal name or transaction code, and correct it.

Back to top
View user's profile Send private message
krishna_mf

New User


Joined: 31 Jan 2007
Posts: 56
Location: banglore

PostPosted: Thu Feb 15, 2007 11:11 am    Post subject:
Reply with quote

hi,
can you please give a sample and simple program using the LTRM PCB
which can do a succesful plitdli call
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu Feb 15, 2007 4:04 pm    Post subject:
Reply with quote

I will look for a 'teaching' example. In the meantime try to understand how a conversational MPP operates. From the link in my signature click.

Do you have any experience in IMS DB/DC at all?

[funmode]
If you need to be trained from scratch just come over to the Netherlands and I will teach you for a few bucks. This forum is not fit for full education in IMS DB/DC; but then again I'm known to be patient icon_wink.gif
[/funmode]
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Need help in triggering a PL1 module ... Varungv99 IMS DB/DC 0 Fri Apr 07, 2017 10:01 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us