Page 2 of 2

Re: COBOL SELECT CLUASE

PostPosted: Thu Feb 28, 2013 1:18 pm
by BillyBoyo
It is not a RETURN-CODE, it is a FILE-STATUS. Find out what a FILE-STATUS of 05 means.

Re: COBOL SELECT CLUASE

PostPosted: Thu Feb 28, 2013 11:21 pm
by pmartyn
There is also the ability for COBOL to dynamically open the new file. No SELECT clause or JCL required.
Here is the source code;
MOVE 'YOUR.FILE.NAME' TO FN.
STRING 'ALLOC DD(OTFILE) DSN(' FN ') NEW '
'CATALOG ' 'LRECL(80) RECFM(F,B)' <<=== REMEMBER TO CHANGE THIS TO YOUR PARAMETERS
DELIMITED BY SIZE
INTO WS-ALLOC-STRING
END-STRING.
DISPLAY ' WS-ALLOC-STRING *' WS-ALLOC-STRING '*'
CALL 'BPXWDYN' USING WS-ALLOC-STRING.
DISPLAY RETURN-CODE.
OPEN OUTPUT OT-FILE. Then write to it and when you are done close it.