You might want to try adding the parameter SPIN(UNALLOC)
to the ALLOC parameters. Just a guess. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 . N. Richland Hills . TX 76010 (817) 255-3225 phone . [email protected] . www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of Scott Ford > Sent: Monday, February 28, 2011 3:56 PM > To: [email protected] > Subject: Re: BPXWDYN > > 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" <[email protected]> > To: [email protected] > 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:[email protected]] On Behalf Of > Scott Ford > Sent: Monday, February 28, 2011 3:57 PM > To: [email protected] > 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 [email protected] 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 [email protected] 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 [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
