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
