Rational Programming Patterns

More -CD Line Definition (Report)

You enter here more physical information about the Report line Definition in the Program.

Physical unit type
The possible unit type varies according to the Type of COBOL code:
  • Type of COBOL code = 1: IBM DOS/VSE: Enter the model type (examples: 2314, 3330, 2400)
  • Type of COBOL code = 3: UNIX, WINDOWS:
    • EXT = Generation of the EXTERNAL clause at the file FD level
    • LS = Generation of the LINE SEQUENTIAL clause
    • EXLS = Generation of the LINE SEQUENTIAL clause and of the EXTERNAL clause at the file FD level
  • Type of COBOL code = Q: ACUCOBOL:
    • LS = Generation of the LINE SEQUENTIAL clause
  • Type of COBOL code = 4: BULL GCOS7:
    • SSF = Option WITH SSF in the SELECT clause
    • OUT = Option -SYSOUT suffix after the file name in the SELECT clause (WITH SSF is generated).
  • Type of COBOL code = 5: BULL GCOS8:
    • PT = printer
    • CR = card reader
    • SSF = ORGANIZATION IS GFRC SEQUENTIAL SSF CODE SET IS GBCD
    • IBM = ORGANIZATION IS IBM-OS SEQUENTIAL
    • xxx = WITH xxx
    A V in the fourth position generates the clause VALUE OF FILE-ID is 3-FF00-IDENT (FF is the Data Structure Code in program). The field 3-FF00-IDENT must be defined in work areas by the user.
  • Type of COBOL code = 8: UNYSIS A Series:
    • DK or blank = disk
    • DKS = sort disk (with T opening).
    • DKM = merge disk (with T opening).
    • RD = reader.
    • PT = printer.
    • PO = file.
    • TP = tape.
    For the two-character codes, a third character can specify a particular final disposition:
    • P = purge
    • R = release
    • L = lock
    • S = save
    A V in the fourth position generates the clause VALUE OF D.S. NAME IS 3-FF00-IDENT.
  • Type of COBOL code = U: UNYSIS 2200 Series:
    • CR = card reader
    • CP = card punch
    • .UN = UNISERVO
    • .TP = tape
    • PN = printer with external name. If the Complement field contains a value, the RECORDING clause is also generated.
    • PT = printer without external name
    • PF = 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 four data names are to be declared in work area lines with their appropriate values.
  • Type of COBOL code = O: AS/400:
    • RD = reader.
    • CP = card punch
    • DB = database
    • PT = printer.
    • TP = tape.
    • DK or blank = disk.
Complement
It is a complement to the Physical unit type field. The purpose of this field varies according to the Type of COBOL code.
Table 1. Values of the complement to the physical unit type
Value Type of COBOL code
R: reader 1: IBM DOS/VSE
P: punch 1: IBM DOS/VSE
S: EBCDIC set code 5: BULL GCOS8 and U: UNYSIS 2200 Series
C: ASCII set code 5: BULL GCOS8
O: OPTIONAL option not to be generated 4: BULL GCOS7 and 5: BULL GCOS8
A: ALLOWING ALL file optioning option & REGARDLESS sequential reading I: DEC VAX VMS
Access key Data Element code

This code, on six characters, is required for indexed files.


Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)