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

Reply via email to