COBOL/400 Language Help

Format 4 (Printer 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 4 (Printer 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-*
 
  ->-*--------------------------------------------------------------> 1
    *-LINAGE-*----*-data-name-3-*-*-------*------------------------> 2
             *-IS-* integer-6---* *-LINES-*
 
1 ->----------------------------------------------------------------> 3
2 ->--*---------------------------------------*---------------------> 4
     **------*-FOOTING-*----*-*-data-name-4-**
      *-WITH-*         *-AT-* *-integer-7---*
 
3 ->--------------------------------------------------------------*->
4 ->*---------------------------*-*------------------------------**
   **-----**--*TOP*data-name-5** **-----**--*BOTTOM*data-name-6**
    *LINES**AT*   *integer-8--*   *LINES**AT*      *integer-9--*
 
  ->-*---------------------------------*--.-------------------------><-
    *-CODE-SET-*----*-alphabet-name-1-*
               *-IS-*
 


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