Rob You are the best
Sent from my iPhone > On Jan 22, 2014, at 12:19 PM, Rob Scott <[email protected]> wrote: > > OPEN and CLOSE are macros that require you to move in a "model" list form to > the working storage versions before you use them in MF=E > > For example : > > MVC WA_OPEN_PLIST,LC_OPEN Copy in models > MVC WA_CLOSE_PLIST,LC_CLOSE > > OPEN WA_SYSOUT,MODE=31,MF=(E,WA_OPEN_PLIST) > > CLOSE WA_SYSOUT,MODE=31,MF=(E,WA_CLOSE_PLIST) > > > Constants : > > LC_OPEN OPEN (,),MF=L,MODE=31 > LC@OPEN_LEN EQU *-LC_OPEN > LC_CLOSE CLOSE (,),MF=L,MODE=31 > LC@CLOSE_LEN EQU *-LC_CLOSE > > Working storage : > > WA_OPEN_PLIST DS XL(LC@OPEN_LEN) > WA_CLOSE_PLIST DS XL(LC@CLOSE_LEN) > > > > Rob Scott > Lead Developer > Rocket Software > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > Tel: +1.781.684.2305 > Email: [email protected] > Web: www.rocketsoftware.com > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of MichealButz > Sent: 22 January 2014 16:58 > To: [email protected] > Subject: rentrant Open > > Hi > > > > I must be doing something wrong in my MF=L and MF=E open here is my code > > As I get s0c4 > > > > Thanks > > > > 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 > > *** > > > ---------------------------------------------------------------------- > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
