COBOL/400 Language Help

Format 2 (Diskette Files)

Description
The File Section must contain a level indicator for each input and output file. For all files except sort/merge, the File Section must contain an FD entry. The last clause in the FD entry must be immediately followed by a separator period.
Format 2 (Diskette Files)
 
  ->->--FD file-name------------------------------------------------->
 
  ->--*--------------------------------------------------------*---->
     *-BLOCK-*--------**------------*-integer-2-*----------*--*
             *CONTAINS**integer-1 TO*           *CHARACTERS*
                                                *RECORDS---*
 
  ->--*---------------------------------------------------------*--->
     *RECORD**--------*-integer-3-*----------*---------------*-*
            +*CONTAINS*           *CHARACTERS*               +
            **--------*-integer-4 TO integer-5-*----------*--*
             *CONTAINS*                        *CHARACTERS*
 
  ->--*----------------------------------------*-------------------->
     *-LABEL-*RECORD-*--*-*--*-STANDARD-----*-*
             +       *IS* +  *-OMITTED------*
             *RECORDS*---**
                     *ARE*
 
  ->--*----------------------------------------------*-------------->
     +           *---------------------------------*+
     +           V                                 ++
     *-VALUE OF----system-name-1*--*--*-data-name-1**
                                *IS*  *-literal-1--*
 
  ->-*-----------------------------------------*-------------------->
    +                           *-----------* +
    +                           v           + +
    *-DATA-*-RECORD--*----*--*--data-name-2-*-*
           +         *-IS-*  +
           *-RECORDS-*-----*-*
                     *-ARE-*
 
  ->-*---------------------------------*--.-------------------------><-
    *-CODE-SET-*----*-alphabet-name-1-*
               *-IS-*
 


[ Top of Page | Previous Page | Next Page | Table of Contents ]