Use the 01 keyword to:
Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.
- Define the input and output files in a batch program File Section.
- Define a data structure in Working-Storage or Linkage Section.
- Copy a data structure into the Working-Storage or Linkage Section.
- Define AppMaster Builder Report Writer statements for headings, footers, or detail lines.
Syntax: for Format 1, define input or output files
IO filename ASSIGN [TO] ...
ORGANIZATION IS ...
01 input|outputrecordname PIC clause
Syntax: for Format 2, define a data structure
01 COBOLdatastructure
[05 COBOLdatastructure]
Syntax: for Format 3, copy a data structure
01 COBOLcopystatement
Syntax: for Format 4, define Report Writer line types
01 [dataname] TYPE [IS] reportgroup
[NEXT GROUP [IS] number|PLUS number|NEXT PAGE][.]
[LINE [NUMBER IS] number|PLUS number|NEXT PAGE]
MOCKUP|M LINE|LINES linenumber1 [THRU linenumberN]
[O[VERPRINT] WHEN "characterstring" AT COLUMN column]
[S[OURCE] [IS] dataname [options]]
[V[ALUE] [IS] literal]
[R[EFERENCE [IS] dataname PIC[TURE] [IS] picclause
[options]]
[SUM|+ [IS] dataname [dataname] ...
[UPON detailgroup [detailgroup] ...]
[RESET [ON] [FINAL] dataname]
[options]]
Comments:
To write subordinate elementary data elements, include the level numbers in columns 12 - 72.