Direct Files in "Native"
Q: Is there a way to create direct files using CL commands? I'm used to creating RETAIN-J direct files in the S/36 environment but can't seem to "nativize" it. - Tim Phinney
A: It takes two commands: Create Physical File (CRTPF) and Initialize Physical File Member (INZPFM). You run the CRTPF command as usual (supplying either the record length in the RCDLEN parameter, or using DDS). Then you run the Initialize Physical File Member (INZPFM) command to initialize a certain number of records, as in:
INZPFM FILE(lib/file) + RECORDS(*DFT) + TOTRCDS(1000)
This command creates 1000 records in the "direct" file, initializing them to their default values (blanks for alphanumeric fields, zeros for numeric fields). RECORDS(*DLT) initializes all 1000 records to deleted records.
- Ernie Malaga
LATEST COMMENTS
MC Press Online