You enter here more physical information about the Data Structure line Definition in the Program.
It must contain a numeric value, which corresponds to the block size, i.e. the size of the physical record. Spaces and zeroes are equivalent.
If the Data Structure has a 'Usage' = 'P: Principal', you must enter the 'code in program' of the result output Data Structure (2 characters).
If the Data Structure has a 'Usage' = 'R: Result' or 'D: Output file', you must enter the 'code in program' of the principal input Data Structure (2 characters).
If the Data Structure has a 'Usage' = 'M: Transaction to be validated' or 'N: Transaction not to be validated', you must enter the 'code in program' (on 2 characters) of the transaction file containing the errors ('Usage' = 'E: Transaction with error checking'), if such a file has been called.
If the Data Structure has a 'Usage' = 'E: Transaction with error checking', you must enter the 'code in program' (on 2 characters) of the corresponding transaction file ('Usage' = 'M: Transaction to be validated' or 'N: Transaction not to be validated').
Value | Meaning |
---|---|
IBM DOS (Type of COBOL code = '1'): Enter the model type (examples: 2314, 3330, 2400). |
|
. EXT LS EXLS |
MICROFOCUS, COBOL II, IBM VISUAL SET (Type of COBOL code = '3'): Generation of the EXTERNAL clause at the file FD level Generation of the LINE SEQUENTIAL clause Generation of the LINE SEQUENTIAL clause and of the EXTERNAL clause at the file FD level |
. LS |
ACU COBOL (Type of COBOL code = 'Q') : Generation of the LINE SEQUENTIAL clause |
. SSF OUT |
Gcos7 (Type of COBOL code = '4'): Option WITH SSF in the SELECT clause Option -SYSOUT suffix after the filename in the SELECT clause (WITH SSF is generated). |
. PT CR SSF IBM xxx ..V |
Gcos8 ASCII (Type of COBOL code = '5'): Printer Card reader. ORGANIZATION IS GFRC SEQUENTIAL SSF CODE SET IS IS GBCD. ORGANIZATION IS IBM-OS SEQUENTIAL. WITH xxx. A ’V’ in the 4th position generates the clause ’VALUE OF FILE-ID is 3-FF00-IDENT’ (FF is the program Data Structure code being called). You must define the 3-FF00-IDENT field in the -W Lines tab. |
. DK or blank DKS DKM RD PT PO TP ... ..P ..R ..L ..S ..V |
BURROUGHS large system (Type of COBOL code = '8') UNISYS A Series: Disk Sort Disk (with T opening). Merge Disk (with T opening). Reader Printer File Tape For the 2-character codes, a third character can specify a particular final disposition: Purge Release Lock Save A ’V’ in the 4th position generates the clause ’VALUE OF D.S. NAME IS 3-FF00-IDENT’. |
. CR CP UN TP PN PT PF |
UNISYS 2200 (Type of COBOL code = 'U'): Card reader. Card punch. Uniservo. Tape Printer with external name. If the 'Complement' field contains input, the RECORDING clause is also generated. Printer without external name. Printer with external
name and
VALUE OF PRINTER-FORMS 3-FF00-FORMS LINAGE IS 3-FF00-LINES TOP IS 3-FF00-TOP BOTTOM IS 3-FF00-BOTTOM These 4 data-names are to be declared in Work Areas (-W lines) with their appropriate values. |
. DB RD CP PT TP DK or blank |
AS 400 (Type of COBOL code = 'O'): Database Reader Card Punch Printer Tape Disk |
Value | Type of COBOL code |
---|---|
R: Reader | IBM DOS (Type of COBOL code = '1') |
P: Punch | IBM DOS (Type of COBOL code = '1') |
S: EBCDIC set code | BULL Gcos8 (Type of COBOL code = '5') and UNISYS 2200 (Type of COBOL code = 'U') |
C: ASCII set code | BULL Gcos8 (Type of COBOL code = '5') |
O: OPTIONAL option not to be generated | BULL Gcos7 (Type of COBOL code = '4') and Gcos8 (Type of COBOL code = '5') |
A: ALLOWING ALL file optioning option & REGARDLESS sequential reading | DEC VAX VMS (Type of COBOL code = 'I') |
If you fill it in, it is recommended to specify a character string, on 10 characters maximum, in the following format:
This code, on 6 characters, is required for indexed Data Structures.
You enter here the code (6 characters) of the Data Element whose values identify the different record types of a Data Structure.
This Data Element must belong to the common part Segment (00 Segment).
This name can also be specified in the 'Structure code' field of the Segment Definition tab.