Re: IEC020I 001-1
If you did not explicitly create a PDS but allowed IEWL and JCL to create this library, is it possible a PDS-E was created instead? A program that tries to read a program object from a PDS-E if it were a load module from a PDS (by using BSAM) will abend with s001-01 . You are rigth: it is a PDSE. I figured that wouldn't really make a difference and I could just use that as 'test' input. I'll try a normal PDS or (PDSE) to see if I can read that. Thanks for the tip! So how does one 'read' a program object? Fred! - ATTENTION: The information in this electronic mail message is private and confidential, and only intended for the addressee. Should you receive this message by mistake, you are hereby notified that any disclosure, reproduction, distribution or use of this message is strictly prohibited. Please inform the sender by reply transmission and delete the message without copying or opening it. Messages and attachments are scanned for all viruses known. If this message contains password-protected attachments, the files have NOT been scanned for viruses by the ING mail domain. Always scan attachments before opening them. - -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEC020I 001-1
In aadad469c0429c4fb23ce1486e5c10da3d82a2a...@ing.com, on 09/08/2010 at 08:09 AM, Fred van der Windt fred.van.der.wi...@mail.ing.nl said: So how does one 'read' a program object? The BINDER has an API. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEC020I 001-1
To read a program object, you have to use the binder API, or IEBCOPY the program object to a load library (which will convert the p.o. back to a load module) and then you can read the load module. I think that some p.o. will not convert to load modules, so you would have to code a binder API program for those. For me, the binder API was a bit hard to decipher, but there is a sample in one of the manuals (see MVS Program Management: Advanced Facilities). I used that sample to figure out how to convert one of my programs from reading load modules to reading program objects. The binder API can read both program objects and most load modules (really old load modules cause the API to return unusual codes) so a bind API program can be used for both types of executables. The example is called BAGETE. I ran BAGETE under TSO TEST to get a sense of what it would do at the various API functions and I can truly say I DO NOT really understand it completely, especially the buffer usage, but I was able to make it work for most program objects and load modules created after certain APARs were applied to the LKED. regards, Joe D'Alessandro -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEC020I 001-1
If you did not explicitly create a PDS but allowed IEWL and JCL to create this library, is it possible a PDS-E was created instead? A program that tries to read a program object from a PDS-E if it were a load module from a PDS (by using BSAM) will abend with s001-01 . As someone on the list has mentioned before, the IGDSMSxx member can specify a default of LIBRARY instead of PDS in the DSNTYPE parameter. regards, Joe D'Alessandro -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEC020I 001-1
In aadad469c0429c4fb23ce1486e5c10da3d80968...@ing.com, on 09/06/2010 at 11:29 AM, Fred van der Windt fred.van.der.wi...@mail.ing.nl said: I'm trying to read a RECFM=U partitioned dataset Directory or member? but keep getting a IEC020I 001-1 message and a S001 abend. What was in the message? Setting DCBLRECL to the blocksize from DCBBLKSI What was that block size? What am I doing wrong? Failing to post the relevant code. The DCB and DCBE are copied from a 'Model' specification With the correct length? The OPEN: What about the MF=L? MVC OPEN,=X'8000' !! Bug in OPEN macro !! I doubt it. And the READ (R2 points to a buffer, R9 to the DCB): What about the FIND? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IEC020I 001-1
I'm trying to read a RECFM=U partitioned dataset but keep getting a IEC020I 001-1 message and a S001 abend. The program works for FIXED and VARIABLE records, I wanted to add support for UNDEFINED records. According to the documentation a possible cause is: RECFM=U was specified on the DCB macro instruction, but no logical record length was specified. Setting DCBLRECL to the blocksize from DCBBLKSI before executing the READ command doesn't help. What am I doing wrong? Here are a few relevant parts from the program: The DCB, DCBE and READ declaration: DCBD DSORG=(PO) DCBE DSCL56 * READ DECB,SF,,,'S'MF=L The DCB and DCBE are copied from a 'Model' specification that is defined like this: DCB DCBE=0, DDNAME=DUMMY, DSORG=PO, MACRF=(R,W) * DCBE EODAD=0, RMODE31=BUFF The OPEN: MVC OPEN,=X'8000' !! Bug in OPEN macro !! OPEN ((9),INPUT), + MODE=31,+ MF=(E,OPEN) And the READ (R2 points to a buffer, R9 to the DCB): READ DECB,SF,(9),(2),'S'MF=E CHECK DECB Thanks for any suggestions. Fred! - ATTENTION: The information in this electronic mail message is private and confidential, and only intended for the addressee. Should you receive this message by mistake, you are hereby notified that any disclosure, reproduction, distribution or use of this message is strictly prohibited. Please inform the sender by reply transmission and delete the message without copying or opening it. Messages and attachments are scanned for all viruses known. If this message contains password-protected attachments, the files have NOT been scanned for viruses by the ING mail domain. Always scan attachments before opening them. - -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEC020I 001-1
On Mon, 6 Sep 2010 11:29:43 +0200, Fred van der Windt wrote: I'm trying to read a RECFM=U partitioned dataset but keep getting a IEC020I 001-1 message and a S001 abend. The program works for FIXED and VARIABLE records, I wanted to add support for UNDEFINED records. According to the documentation a possible cause is: RECFM=U was specified on the DCB macro instruction, but no logical record length was specified. Setting DCBLRECL to the blocksize from DCBBLKSI before executing the READ command doesn't help. What am I doing wrong? Here are a few relevant parts from the program: Is it possible that the member contains a block larger than the BLKSIZE in the label? This could happen if a member was added later with an overriding BLKSIZE. What happens if you: o Attempt to copy the member with IEBGENER? o Attempt to read the member with LMGET? BTW, in MC I read: #3.6 z/OS V1R7.0 MVS System Messages, Vol 7 (IEB-IEE) | IEC020I 001-rc,mod,jjj, sss,ddname[-#],dev,ser,dsname( member) ... + For concatenated data sets, some data set in the concatenation has attributes that are different than the attributes of the first data set in the concatenation. For example, some data set may have a different blocksize than the first data set. Is this still a problem? I had thought that ages ago OPEN was repaired to set DCBBLKSI to the largest BLKSIZE in the catenation rather than the first. Are the rules different for concatenated PDSes with RECFM=U? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEC020I 001-1
Is it possible that the member contains a block larger than the BLKSIZE in the label? This could happen if a member was added later with an overriding BLKSIZE. I'm using a load library in my tests so I assume the members are 'correct': they were all created by the linker (IEWL). Fred! - ATTENTION: The information in this electronic mail message is private and confidential, and only intended for the addressee. Should you receive this message by mistake, you are hereby notified that any disclosure, reproduction, distribution or use of this message is strictly prohibited. Please inform the sender by reply transmission and delete the message without copying or opening it. Messages and attachments are scanned for all viruses known. If this message contains password-protected attachments, the files have NOT been scanned for viruses by the ING mail domain. Always scan attachments before opening them. - -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html