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: rsc...@rs.com
Web: www.rocketsoftware.com
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of MichealButz
Sent: 22 January 2014 16:58
To: IBM-MAIN@LISTSERV.UA.EDU
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
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
