|
View previous topic :: View next topic
|
| Author |
Message |
krishna_mf
New User
Joined: 31 Jan 2007
Posts: 56
Location: banglore
|
|
|
|
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 |
|
 |
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
| 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 |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
| BTW: the io-area I supplied you is for the message you send to another program after the CHNG-call. |
|
| Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
| 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 |
|
|
krishna_mf
New User
Joined: 31 Jan 2007
Posts: 56
Location: banglore
|
|
|
|
hi,
can you please give a sample and simple program using the LTRM PCB
which can do a succesful plitdli call |
|
| Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19
|
|
|
|
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 
[/funmode] |
|
| Back to top |
|
|
|
|
