Yeah Sam, I see said the 'blind man' ....let me give it a try, ty , I appreciate it Scott J Ford
________________________________ From: Sam Siegel <[email protected]> To: [email protected] Sent: Mon, February 28, 2011 7:03:04 PM Subject: Re: BPXWDYN Look at the output descriptor. http://publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.bpxb600/wdyn.htm <http://publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.bpxb600/wdyn.htm>Looks like this might be needed for freeing a DD SYSOUT= allocation. On Mon, Feb 28, 2011 at 3:29 PM, Scott Ford <[email protected]> wrote: > I added it missing ')' the allocate is working fine, the free comes back > with a > 0 return code and the 'DD' is still allocated I am missing something, muse > be my > old age memory > > Scott J Ford > > > > > > ________________________________ > From: Sam Siegel <[email protected]> > To: [email protected] > Sent: Mon, February 28, 2011 5:19:44 PM > Subject: Re: BPXWDYN > > > > > <snip> > > > > > 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)'. > > > <snip> > > Perhaps it is just a cut and paste error in the original post, but there is > not ')' for the sysout parameter. > > ---------------------------------------------------------------------- > 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
