The list form of the open is in my working storage which is Germained >From subpool 0 at the begging of my code
Sent from my iPhone > On Jan 22, 2014, at 12:09 PM, Kirk Talman <[email protected]> wrote: > > where is getmain for storage? > > where are csect & dsect boundaries? > > where do you relocate the address in MF=L? > > you might send this to IBM Mainframe Assembler List > <[email protected]> for quicker results > > pup > > IBM Mainframe Discussion List <[email protected]> wrote on > 01/22/2014 11:57:48 AM: > >> From: MichealButz <[email protected]> > >> 3 STEP_LIB DS 0H >> >> 4 MVC STEPLIB(DCBLNGPO),STEPLIBX >> >> 5 LA R8,STEPLIB >> >> 6 OPEN ((R8)),MODE=31,MF=(E,OPEN_LIST) >> >> 9+* >> >> 0+* >> >> 2+ LA 1,OPEN_LIST >> >> 3+ ST R8,0+4(,1) Store DCB >> >> 4+ LR 0,1 Set param >> >> 5+ SR 1,1 Set indic >> >> 6+ SVC 19 Issue OPE >> >> >> >> >> >> 8 STEPLIBX DCB DDNAME=STEPLIB,RECFM=U,DSORG=PO,MACRF=R >> >> 1+* DATA CONTROL BLOCK >> >> 2+* >> >> OPEN_LIST OPEN STEPLIB,MODE=31,MF=L >> >> >> >> +OPEN_LIST DC 0F'0' >> >> + DC AL1(128) >> >> + DC AL3(0) >> >> + DC A(STEPLIB) >> >> >> >> >> STEPLIB DS CL(DCBLNGPO) >> >> >> >> >> >> >> >> IEC130I " 0 " 0 DD STATEMENT MISSING >> >> IEC999I IGC0001I,IBMUSER,ISPFPROC >> >> IEA995I SYMPTOM DUMP OUTPUT >> >> SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004 >> >> TIME=06.49.52 SEQ=00027 CPU=0000 ASID=0040 >> >> PSW AT TIME OF ERROR 078C2000 80E19EAA ILC 2 INTC 04 >> >> NO ACTIVE MODULE FOUND >> >> NAME=UNKNOWN >> >> DATA AT PSW 00E19EA4 - 42421831 0E02B20A 0050A7F4 > > > ----------------------------------------- > The information contained in this communication (including any > attachments hereto) is confidential and is intended solely for the > personal and confidential use of the individual or entity to whom > it is addressed. If the reader of this message is not the intended > recipient or an agent responsible for delivering it to the intended > recipient, you are hereby notified that you have received this > communication in error and that any review, dissemination, copying, > or unauthorized use of this information, or the taking of any > action in reliance on the contents of this information is strictly > prohibited. If you have received this communication in error, > please notify us immediately by e-mail, and delete the original > message. Thank you > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
