Work File error

Are you modifying an existing program or are you starting from scratch?

If you are starting from scratch, when you paint the program, instead of selecting an index, during the paint process, select f6, and create your own sort sequence.  The paint process will take care of setting up the internal sort.

I am modifying an existing program so I sort of copied code from PR113 to build a temp file. So the issue is when trying to either build or open the work file.

For a sort file, you do not need to create a "work" file but rather a "sort" file or "sequential" file. You do not need to use the 900-BUILD-TMP-FILE-NAME API.

You need to populate the sort file fields and once populated you "release" the records. Once all the records are in the file, you then need to "return" the records in for processing.

Your sort statement and input procedure (used to populate the fields) should look like this... In this example my sort had ascending and descending fields as you can see.

SORT ZH720SORT-FILE
ASCENDING KEY DSF-EMP-COMPANY
DESCENDING KEY DSF-YOS
ASCENDING KEY DSF-EMP-EMPLOYEE
INPUT PROCEDURE 1000-SEL-REPORT
OUTPUT PROCEDURE 1000-DO-REPORT.

The 1000-SEL-REPORT section builds the data fields in the sort records and the the 1000-DO-REPORT, 'returns' the records after being sorted, to report on them in the desired sequence.

The actual sort file definition looks like this....


Work File Definition

Product Line PROD File Record No
System Code HR Sort File Yes
Program Code ZH720 File Media Sequential
File Name ZH720SORT Value/WsFld Id
Prefix SF File Status

Field Name Occurs Type Size 113

EMP-COMPANY Numeric 4.0
EMP-EMPLOYEE Numeric 9.0
EMP-LAST-NAME-PRE AlphaLC 30
EMP-NAME-SUFFIX AlphaLC 4
EMP-LAST-NAME AlphaLC 30
EMP-MIDDLE-INIT Alpha 1
EMP-FIRST-NAME AlphaLC 15
EMP-DEPARTMENT Alpha 5
EMP-PROCESS-LEVEL Alpha 5
EMP-ANNIVERS-DATE yyyymmdd 8
YOS Numeric 2.0

Did you ever figure this out?  I am getting same error with same code.

I figured it out myself. After doing the bldsh, I no longer get the 09 009 on the work file open!

You have to do the bldsh to bind the workdef.

    Usage:  To build a COBOL program shell.
    Syntax: bldsh [-FT123AO] ProductLine SystemCode ProgramCode
                F - Force fListCols TRUE.
                T - enable READY TRACE.
                u - Build user exit program shell.
                1 - Use 'c' bldrptpage Calls.
                2 - [Default] Use 'COBOL' BLDRPTPAGE calls.
                    Format Columns = 132
                3 - Use 'COBOL' BLDRPTPAGE calls.
                    Format Columns  = 66
                A - Build COBOL program shell in Stage Directory.
                O - Override Stage Compilation, compile runtime objects directly
 to Production