ca.portal.admin

Re:Re: Test Fix for LE/370 Programs running with IBM apar PK28112

Discussion created by ca.portal.admin on May 31, 2007
Chris,



The T03C problem was encountered by multiple clients.



Bob Wiklund

Tiburon Technologies

623 594-6022



________________________________



From: IDMS 3rd-party providers forum on behalf of Chris Wood

Sent: Thu 5/31/2007 8:43 AM

To: IDMSVENDOR-L@LISTSERV.IUASSN.COM

Subject: Test Fix for LE/370 Programs running with IBM apar PK28112







Hi,



=20



I see that there is a test fix for LE/370 programs when IBM apar PK28112

has been applied. Did someone on the list get this raised or is this

part of running IDMS under z/OS 1.9 pre-release testing by CA? We are

about to go z/OS 1.8 and I like to be prepared for problems. It raises a

T03C abend.



=20



Thanks



=20



Chris



=20



=20



______________________________________________________________________

This email has been scanned by the MessageLabs Email Security System.

For more information please visit http://www.messagelabs.com/email

______________________________________________________________________
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: IDD and reversing DMCL changes
"Hi all,

Thank you very much for the valuable feedback. Much appreciated.

Mike.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: DCMT V PR nnnnnnnn NC
"I wrote this a long time ago..

TITLE 'VARY SUBSCHEMAS NEW COPY'
*********************************************************************
* *
* DC PROGRAM WHICH MARKS ALL SUBSCHEMAS PRESENTLY LOADED *
* AS NEW COPY. *
* *
*********************************************************************
PRINT GEN
*
B$DCVSUB CSECT
#MOPT ENV=USER
LR R12,R15
USING B$DCVSUB,R12
USING CSA,R10
*
* GET STORAGE FOR PLIST AND MESSAGE LINE
*
#GETSTG TYPE=(USER,SHORT),
PLIST=*,
ADDR=(R2),
LEN=STGLEN
USING STGMAP,R2 BASE THE DSECT
*
* OK NOW WE GO THROUGH THE PDT AND COLLECT THE PROGS
*
LOOKPDT L R3,CSAPDTA ADDRESS THE PDT
USING PDT,R3
L R3,PDTPDEBA R3 HAS ADDRESS OF TIX
USING TIX,R3
L R4,TIXFRUSA R4 POINTS TO THE FIRST SLOT
BGN_PDE C R4,TIXSLOTA AT THE END OF THE BLOCK?
BNL PDE_END ALL DONE
L R8,0(R4) R8 POINTS TO THE PDE
USING PDE,R8
TM PDETYPF1,X'40' IS IT SUBSCHEMA?
BZ NXT_PDE
CLC PDEPID(4),=CL4'IDMS' IS IT IDMS????
BE NXT_PDE
*
* CALL DCMT TO PROCESS THE VARY
*
MVC OUTLEN(4),=F'0'
MVC STGIND(2),=H'0'
MVC INLEN(2),=H'80'
MVC DCMTCMD(80),=CL80'V PROGRAM'
MVC DCMTCMD+10(8),PDEPID
MVC DCMTCMD+19(4),=CL4'N C'
#LINEOUT OUTAREA=DCMTCMD,OUTLEN=70,OPTNS=(NOWAIT)
#LINK PGM='RHDCMT00',PARMS=(INREC,OUTREC)
L R5,LENUSED
#LINEOUT OUTAREA=DCMTOUT,OUTLEN=(R5),OPTNS=(NOWAIT)
*
NXT_PDE LA R4,4(R4) R4 IS THE NEXT TIXSLOT
B BGN_PDE
*
PDE_END #FREESTG ADDR=(R2)
*
RETURN #RETURN
#BALI
*
LTORG
STGMAP DSECT
SYSPLIST DS 6F
*
INREC DS 0D
INLEN DS 1H
DCMTCMD DS CL80
*
OUTREC DS 0D
OUTLEN DS 1F
DCMTRC DS 1H
STGIND DS 1H
LENREQ DS 1F
LENUSED DS 1F
DCMTOUT DS CL160
STGEND DS 0D
STGLEN EQU STGEND-STGMAP
*
PRINT OFF
COPY #CSADS
COPY #PDTDS
COPY #TIXDS
END

Chris Trayler

Outcomes