Tried the ALLOC DD(FILEOUT) SYSOUT(X) MSG(WTP , still same Tom: Tried the ALLOC DD(FILEOUT) SYSOUT(X) MSG(WTP , still same issue.
Eileen: I tried the 'FREE FILE DD(FILEOUT) UNALLOC' same issue. I wonder if I hit a bug ... Scott J Ford ________________________________ From: "Barkow, Eileen" <ebar...@doitt.nyc.gov> To: IBM-MAIN@bama.ua.edu Sent: Mon, February 28, 2011 4:06:56 PM Subject: Re: BPXWDYN Try adding unalloc keyword: 'FREE FILE DD(FILEOUT) UNALLOC' -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Ford Sent: Monday, February 28, 2011 3:57 PM To: IBM-MAIN@bama.ua.edu Subject: BPXWDYN I am trying to to the following in A LE Cobol 4.1 program, a Hi all: I am trying to to the following in A LE Cobol 4.1 program, a STC . I have specified a Select for the file .... SELECT FILEOUT ASSIGN TO FILEOUT ORGANIZATION IS SEQUENTIAL FILE STATUS IS FILEOUT-STATUS. I build the BPXWDYN call like this: *** Working Storage *** 01 DYNAM-CONSTANTS. 05 BPXWDYN-PGM PIC X(8) VALUE 'BPXWDYN'. 01 BPXWDYN-PARM. 10 BPXWDYN-PARM-LEN PIC S9(4) BINARY VALUE +100. 10 BPXWDYN-PARM-TXT PIC X(100). 01 DYNSYSOUT-TEMP. 10 FILLER PIC X(18) VALUE ' ALLOC DD(FILEOUT)'. 10 FILLER PIC X(8) VALUE ' SYSOUT('. 10 SYSOUTCL PIC X VALUE SPACE. 10 FILLER PIC X(10) VALUE ' MSG(WTP)'. 10 FILLER PIC X(32) VALUE ' FREE DD(FILEOUT) SPIN(UNALLOC)'. I fill in the SYSOUTCL variable via a parameter... I string the allocate like this: STRING DYNSYSOUT-TEMP DELIMITED BY SIZE INTO BPXWDYN-PARM-TXT END-STRING CALL BPXWDYN-PGM USING BPXWDYN-PARM-TXT The allocate works fine , no issue.. I write to the fileout no problem, works fine. I issue a free like this: STRING ' FREE DD(FILEOUT) ' DELIMITED BY SIZE INTO BPXWDYN-PARM-TXT CALL BPXWDYN-PGM USING BPXWDYN-PARM-TXT The rc says 0 it worked, But I look at the STC and the 'DD' is still allocated. Did the free not unallocate the 'DD'. I want a sysout dataset to be opened and closed multiple times via a command. Thanks all for any help Scott J Ford ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
