I don't know if this was intentional, but your SELECT statement uses DDname DMGPFILE, not DPGMFILE as I would expect from all the other DPGM references.
Billy On Fri, Sep 4, 2015 at 2:06 PM, Rick Stetser < [email protected]> wrote: > I haven't found a COBOL listserv so I'm posting this here. > I have Enterprise COBOL for z/OS 4.2.0. I wrote a simple program to open > a sequential output file, write a record to it, and then close the file. > The program compiles cleanly and when I run it I allocate the output > dataset in the step the program runs in. When the job completes the file > is present but there aren't any records in it. > > Here's my code: > SELECT DPGM-FILE ASSIGN TO DMGPFILE > FILE STATUS IS DPGM-STATUS. > > > FD DPGM-FILE > BLOCK CONTAINS 0 > RECORDING MODE F > LABEL RECORDS STANDARD. > 01 DPGM-RECORD PIC X(80). > > OPEN OUTPUT DPGM-FILE, EPGM-FILE. > IF DPGM-STATUS EQUAL '00' > NEXT SENTENCE > ELSE > DISPLAY 'DPGM-STATUS=' DPGM-STATUS > STOP RUN > END-IF. > MOVE SPACES TO DPGM-RECORD. > WRITE DPGM-RECORD. > IF DPGM-STATUS EQUAL '00' > NEXT SENTENCE > ELSE > DISPLAY 'DPGM-STATUS=' DPGM-STATUS > STOP RUN > END-IF. > CLOSE DPGM-FILE. > GOBACK. > > It's so simple I'm sure I'm missing something but I can't figure out > what. Any suggestions? > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Thank you and best regards, *Billy Ashton* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
