IBM Mainframe Forum

by **sensuixel** » Thu Mar 10, 2011 10:11 pm

Hi all,

I need to code a program which get the DSNAME, LRECL and number of record from a file referenced by a DD CARD like CNT*

To perform this task :

First I read the TIOT and on each entry I perform a RDJFCB to get DSNAME
Then a IHADCB to retrieve LRECL and
then a GET to read and count the rows.

I also perform an OBTAIN to read DSCB-1 to test wether the file is a PS (if no I bump to next TIOT entry)

Sometimes it works but other time i get a IEC141I 013-4C on certain file.

Here is the JCL i submit

Select all

//APIASMX5 EXEC PGM=APIASMX5
//STEPLIB DD DISP=SHR,DSN=EAPICH.TEST.LOAD
//CNT00001 DD DISP=SHR,DSN=R$TRF.EXT.AG2R.DUMP01.TAAUCRF.REC
//CNT00006 DD DISP=SHR,DSN=R$TRF.EXT.AG2R.DUMP01.TAAUECR.REC
//CNT00002 DD DISP=SHR,DSN=R$TRF.EXT.AG2R.DUMP01.TAAUDMD.REC
//CNT00003 DD DISP=SHR,DSN=R$TRF.EXT.AG2R.DUMP01.TAAUECB.REC
//CNT00004 DD DISP=SHR,DSN=R$TRF.EXT.AG2R.DUMP01.TAAUECE.REC
//APIFILE DD DISP=OLD,DSN=EAPICH.TD.APIPRINT,
// RECFM=FB,LRECL=131,AVGREC=M,SPACE=(1,(1,1),RLSE)

Here is the code

Select all

*
APIREC DSECT 00000605
APICNT DS CL131 00000872
* 00000906
APICOUNT CSECT 00001000
INITL 10,EQU=R BASE REG=10, PREFIX = R 00001100
USING APIREC,R5 ADDRESSAbility for APIREC 00001205
*---------------------------------------------------------------------- 00001300
* MAIN 00001400
*---------------------------------------------------------------------- 00001500
BAL R6,OPEN_FIC OPEN SYSPRINT FILE 00008099
BAL R6,TIOT_R READ TIOT 00008199
BAL R6,CLOS_FIC CLOSE SYSPRINT FILE 00008299
BAL R6,FIN_PGM STANDARD EXIT 00009099
*---------------------------------------------------------------------- 00070000
* OPEN_FIC : 00080075
*---------------------------------------------------------------------- 00090000
OPEN_FIC EQU * 00100075
OPEN (APIFILE,(OUTPUT)) 00100175
BR R6 00100275
* 00100375
*---------------------------------------------------------------------- 00100475
* TIOT_R : 00100575
*---------------------------------------------------------------------- 00100675
TIOT_R EQU * 00100775
LA R2,TIOTADDR R2 = @ OF TIOT 00101099
EXTRACT (R2),FIELDS=TIOT,MF=(E,EXTRACT1) GET TIOT 00102099
L R2,TIOTADDR 00103078
USING TIOT1,R2 00104099
TIOT00IN DS 0H 00105097
CLI TIOELNGH,0 END OF TIOT ? 00106099
BE TIOT0OUT YES, END OF EXECUTION 00107099
MVC TEMPDD,TIOEDDNM TEMPDD = DDNAME 00107199
CLC TEMPDD(3),=C'CNT' IS DDNAME LIKE CNT% 00107699
BE READJFCB YES, WE CONTINUE 00108699
TIOTNEXT DS 0H NO, BUMP TO NEXT ENTRY 00109799
SR R3,R3 R3 = 0 00110299
IC R3,TIOELNGH 00110375
AR R2,R3 NEXT ENTRY 00111099
B TIOT00IN 00113099
TIOT0OUT DS 0H 00115097
DROP R2 00116065
BR R6 00120065
*---------------------------------------------------------------------- 00130075
* SUB-ROUTINE READJFCB : 00140099
*---------------------------------------------------------------------- 00150075
* NOTE : DCBDDNAM-IHADCB+DCBSEQ = OFFSET OF DCNDDNAME FROM DCB 00151099
* DCBSEQ 00152099
*---------------------------------------------------------------------- 00153099
READJFCB DS 0H 00160099
MVC DCBDDNAM-IHADCB+DCBSEQ,TEMPDD MOVE DDNAME IN DCB 00160599
RDJFCB DCBSEQ GET JFCB FROM SWA 00160699
MVC VOLSER,JFCBVOLS GET VOLSER FOR OBTAIN 00160799
OBTAIN CAMLST READ DSCB-1 00160899
LTR R15,R15 IS IT OK ? 00160999
BNZ DSCB_ERR IF KO, EXIT 00161099
MVC MSGNDSN,JFDSN MSGDSN=DSNAME 00161299
CLI DS1DSORG,DS1DSGPS IS DSORG = PS ? 00161399
BNE DSORG_ERR IF NO, BUMP TO NEXT ENTRY 00161499
OPEN (DCBSEQ,(INPUT)),TYPE=J 00161599
USING IHADCB,DCBSEQ 00161699
LH R7,DCBLRECL RETRIEVE LRECL 00161799
MVC NBA,=F'0' COUNT = 0 00161899
READFIC GET DCBSEQ 00161999
L R1,NBA 00162099
LA R1,1(R1) 00162199
ST R1,NBA COUNT = COUNT + 1 00162299
B READFIC 00162399
ENDFIC EQU * 00162499
L R8,NBA ED. COUNT 00162599
LA R4,MSGCOUNT 00162699
CVD R8,PKNBA 00162799
MVC NBAOUT(10),EDNBA 00162899
ED NBAOUT(10),PKNBA+3 00162999
MVC 0(9,R4),NBAOUT+1 00163099
LA R4,MSGLREC ED. LRECL 00163199
CVD R7,PKLREC 00163299
MVC LRECOUT(10),EDLREC 00163399
ED LRECOUT(10),PKLREC+3 00163499
MVC 0(9,R4),LRECOUT+1 00163599
PUT APIFILE 00163699
LR R5,R1 00163799
MVC 0(LLINE1,R5),LINE1 00164099
CLOSE DCBSEQ 00164199
B TIOTNEXT 00164299
* 00164385
*---------------------------------------------------------------------- 00164485
* CLOSEFIC : 00164585
*---------------------------------------------------------------------- 00164685
CLOS_FIC EQU * 00165099
CLOSE APIFILE 00170099
BR R6 00180099
* 00520000
*---------------------------------------------------------------------- 00521099
* FIN_PGM : 00522099
*---------------------------------------------------------------------- 00523099
FIN_PGM EQU * 00524099
RCNTL RC=0 00525099
* 00526099
*---------------------------------------------------------------------- 00528099
* DSCB_ERR: DSBC-1 KO 00529099
*---------------------------------------------------------------------- 00529199
DSCB_ERR EQU * 00529299
MVC MSGERR,MYERR1 00529399
MVC ERRDSN,JFDSN MSGDSN=NOM DU FICHIER 00529499
PUT APIFILE ADRESSE DU BUFFER DISPO. DANS R1 00529599
LR R5,R1 SGV DU R1 EN R5 00529699
MVC 0(LLINEX,R5),LINEX 00529799
B TIOTNEXT 00529899
* 00529999
* 00530099
*---------------------------------------------------------------------- 00530199
* DSORG_ERR: DSORG <> PS 00530299
*---------------------------------------------------------------------- 00530399
DSORG_ERR EQU * 00530499
MVC MSGERR,MYERR2 ERRDSN=NOM DU FICHIER 00530599
MVC ERRDSN,JFDSN MSGDSN=NOM DU FICHIER 00530699
PUT APIFILE ADRESSE DU BUFFER DISPO. DANS R1 00530799
LR R5,R1 SGV DU R1 EN R5 00530899
MVC 0(LLINEX,R5),LINEX 00530999
B TIOTNEXT 00531099
* 00531299
*---------------------------------------------------------------------- 00532099
* WORKING STORAGE 00540000
* NOTE : 00540199
*---------------------------------------------------------------------- 00550000
DS 0D ALIGNEMENT REQUIS POUR OBTAIN 00620299
CAMLST CAMLST SEARCH,JFCB1,VOLSER,DSCB TO READ THE FORMAT 1 DSCB 00620399
DSCB DS 265C DSECT DU DSCB DE FORMAT 1 00620499
PRINT OFF 00620599
ORG DSCB-44 00620699
IECSDSL1 (1) 00620799
PRINT ON 00620899
ORG 00620999
VOLSER DC CL6' ' VOLSER FOR OBTAIN 00621199
* 00621299
DS 0D ALIGNEMENT REQUIS POUR JFCB 00621399
EXLIST DC X'87' 00621499
DC AL3(JFCB1) 00621599
JFCB1 DS 0CL176 DSECT DU JFCB 00621699
JFDSN DS CL44 DATA SET NAME 00621799
ORG JFCB1 00621999
PRINT OFF 00622099
IEFJFCBN 00622199
PRINT ON 00622299
ORG 00622399
* 00622499
DCBSEQ DCB DDNAME=DUMMY,DSORG=PS,MACRF=(GL),EXLST=EXLIST,EODAD=ENDFIC 00622599
APIFILE DCB DDNAME=APIFILE,DSORG=PS,MACRF=(PL), X00622699
RECFM=FB,LRECL=131,BLKSIZE=1310 00622799
* 00622899
TEMPDD DC CL8' ' 00622999
* 00623099
PKNBA DS 1D EDITITION COMPTEUR 00623199
EDNBA DC X'40',7X'20',X'21',X'20' 00623299
NBAOUT DS CL10 00623399
* 00623499
PKLREC DS 1D EDITION LONGUEUR 00623599
EDLREC DC X'40',7X'20',X'21',X'20' 00623699
LRECOUT DS CL10 00623799
* 00623899
NBA DS 1F NOMBRE D'ENREG 00624099
* 00625099
EXTRACT1 EXTRACT ,,MF=L 00721499
TIOTADDR DC F'0' 00721599
* 00721699
LINE1 EQU * 00721799
MSGNDSN DC CL44' ' 00721899
DC C';' 00721999
MSGLREC DC C'AAAAAAAAA' 00722099
DC C';' 00722199
MSGCOUNT DC C'AAAAAAAAA' 00722299
DC C';' 00722399
LLINE1 EQU *-LINE1 00722499
* 00722599
LINEX EQU * 00722699
MSGERR DC CL41' ' 00722799
ERRDSN DS CL44' ' 00722899
LLINEX EQU *-LINEX 00723399
MYERR1 DC C'-- LECTURE DU DSCB-1 KO POUR FICHIER : ' 00723799
MYERR2 DC C'-- DSORG <> PS POUR FICHIER : ' 00723899
* 00723999
PRINT OFF 00724099
DCBD DSORG=PS DSECT DU DCB 00724199
PRINT ON 00724299
* 00724399
TIOT DSECT 00724499
PRINT OFF 00724599
IEFTIOT1 00724699
PRINT ON 00724799
* 00725089
END APICOUNT 00730000

and the abend i get

Select all

-STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
-ASM ASM 00 171 67 .00 .00 .0 1380 BATCH 0 0 0 0
-ASM LKED 00 54 5 .00 .00 .0 236 BATCH 0 0 0 0
IEC141I 013-4C,IGG0196B,APIASMX5,APIASMX5,CNT00006,4522,COM12B,R$TRF.EXT.TEST.DUMP01.TAAUECR.REC
IEA995I SYMPTOM DUMP OUTPUT 833
SYSTEM COMPLETION CODE=013 REASON CODE=0000004C
TIME=17.20.12 SEQ=33082 CPU=0000 ASID=0043
PSW AT TIME OF ERROR 075C1000 80EAE0CA ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00EAE0C4 - 41003B9A 0A0D41F0 38C256F0
AR/GR 0: 92F0FF16/00000000_00EAE3AC 1: 00000000/00000000_A4013000
2: 00000000/00000000_00007DF4 3: 00000000/00000000_00EAD812
4: 00000000/00000000_00AC1170 5: 00000000/00000000_00AC1504
6: 00000000/00000000_00AC14AC 7: 00000000/00000000_00AC1504
8: 00000000/00000000_00AC14CC 9: 00000000/00000000_00000000
A: 00000000/00000000_00AD6428 B: 00000000/00000000_00AC106C
C: 00000000/00000000_00007FE7 D: 00000000/00000000_00007FC0
E: 00000000/00000000_80EAD94A F: 00000002/00000010_0000004C
END OF SYMPTOM DUMP
IEF450I APIASMX5 APIASMX5 - ABEND=S013 U0000 REASON=0000004C 834
TIME=17.20.12
-APIASMX5 *S013 13 2 .00 .00 .0 319 BATCH

The file R$TRF.EXT.TEST.DUMP01.TAAUECR.REC effectively resides on unit COM12B it's a PS-E with RECFM=FB - LRECL=239 - BLKSIZE = 32743

by **BillyBoyo** » Thu Mar 10, 2011 11:38 pm

Have you looked up the error messages with those code values? What do they say? I think it would help.

by **sensuixel** » Fri Mar 11, 2011 12:24 am

I googled it and i get various responses

It could be related to the OPEN TYPE=J or to the BLKSIZE of target file.

After putting display step in my program, the abend appears before i move the next DDNAME in the DCB, so after or before reading
the next entry of the TIOT.
I

by **sensuixel** » Fri Mar 11, 2011 12:40 am

The 04C indicates a problem in the length of DCBBUFL which has to be equal or greater
than the BLKSIZE in the DCBE

by **steve-myers** » Fri Mar 11, 2011 2:15 am

Lookup the error yourself. If you read the description for 013-4C, it will almost (but not quite) tell you what's wrong. What sensuixel wrote is sort of the problem, but not really the problem you have encountered. I will say it's a problem that most beginners will eventually encounter because CLOSE does not do something that a beginner would expect CLOSE to do. I know why CLOSE does not do this, but it is not something a beginner would expect, and the reason is lost in the dark ages of OS/360. When you tell us what the real problem is, and what you've done to correct the problem, I will tell you why CLOSE is not working the way you probably expect it to work.

by **steve-myers** » Fri Mar 11, 2011 2:32 am

sensuixel wrote:I googled it and i get various responses

It could be related to the OPEN TYPE=J or to the BLKSIZE of target file.

After putting display step in my program, the abend appears before i move the next DDNAME in the DCB, so after or before reading
the next entry of the TIOT.
I

Google is probably not your friend for many common error messages like this one. Most of the pointers will be garbage. I tried your IEC141I message and garbage is all I got. You are much better off knowing where to find IBM's description of error messages and go there, not trying Google.

by **dick scherrer** » Fri Mar 11, 2011 4:09 am

Hello,

Suggest you bookmark this link. . .
http://publib.boulder.ibm.com/infocente ... stract.htm

When you follow this link, you will positioned at the start of the "System Messages" volumes (there are 10 of them). The one you want for the IEC141I is Vol 7.

You may want to download a local copy just in case there is no internet connectivity . . .

Good luck

by **BillyBoyo** » Fri Mar 11, 2011 4:39 am

Two things I'm looking forward to. Steve's answer and Dick's link. You got me thinking, Steve.

by **steve-myers** » Fri Mar 11, 2011 9:06 am

dick scherrer wrote:Hello,

Suggest you bookmark this link. . .

When you follow this link, you will positioned at the start of the "System Messages" volumes (there are 10 of them). The one you want for the IEC141I is Vol 7.

You may want to download a local copy just in case there is no internet connectivity . . .

Good luck

There really isn't a single link that I can think of; there are changes with each release, so you really need a new link for each release. This link is for z/OS V1R12 but there are some changes from z/OS V1R11. Unless I know, for a fact, the exact release, I tend to use the most recent release and hope for the best.

dick scherrer's idea to download the manuals is good, but rather cumbersome. I used to get the manual CDs, but that's no longer feasible.

by **dick scherrer** » Fri Mar 11, 2011 10:20 am

Hello,

Oooopss. . . :oops:

Here's the link (and it has also been put in the original post referencing it). . . I was on the way out of the room and forgot to "paste". Bummer. . .
http://publib.boulder.ibm.com/infocente ... stract.htm

Yup, to download the entire collection would be cumbersome at least. . . Also, they won't be updated onyour local drive. . .

However, i do download selected manuals and in the days before flash drives, burned them onto my own cd's for portablility.

A friend has an e-mail account where he sent all sorts of things like this as attachments and then was able to open them from client sites. Today with many consultants, it is all on their traveling laptop

IBM Mainframe Forum

Read TIOT and RDJFCB for each entry

Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry

Re: Read TIOT and RDJFCB for each entry