Joined: 06 Jun 2008 Posts: 8212 Location: Dubuque, Iowa, USA
It is not clear what you are asking. From the COBOL Language Reference manual (link at the top of the page):
5.2.11 CODE-SET clause
The CODE-SET clause specifies the character code used to represent data on a magnetic tape file. When the CODE-SET clause is specified, an alphabet-name identifies the character code convention used to represent data on the input-output device.
alphabet-name must be defined in the SPECIAL-NAMES paragraph as STANDARD-1 (for ASCII-encoded files), STANDARD-2 (for ISO 7-bit encoded files), EBCDIC (for EBCDIC-encoded files), or NATIVE. When NATIVE is specified, the CODE-SET clause is syntax checked but has no effect on the execution of the program.
The CODE-SET clause also specifies the algorithm for converting the character codes on the input-output medium from and to the internal EBCDIC character set.
When the CODE-SET clause is specified for a file, all data in the file must have USAGE DISPLAY; and if signed numeric data is present, it must be described with the SIGN IS SEPARATE clause.
When the CODE-SET clause is omitted, the EBCDIC character set is assumed for the file.
If the associated file connector is an external file connector, all CODE-SET clauses in the run unit that are associated with the file connector must have the same character set.
The CODE-SET clause is valid only for magnetic tape files.
The CODE-SET clause is syntax checked but has no effect on the execution of the program when specified under an SD.
I don't see any reference to "alph" in there ... do you? So you're using non-standard terminology, which confuses the issue. Once you've clarified what you are asking, using terminology in the quoted manual section, perhaps we can provide assistance.