d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedytst output{

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy int main()

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy {

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_ASCII 1 /* ISO-8859-1 */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC_E 2 /* Xopen dd(1) EBCDIC */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC_I 3 /* Xopen dd(1) IBM */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC_O 4 /* IBM-1047 mvs OpenEdition */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC_S 5 /* Siemens posix-bc */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC_H 6 /* IBM-37 AS/400 */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC_M 7 /* IBM mvs cobol */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC_U 8 /* microfocus cobol */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_MAPS 8 /* number of code maps */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC CC_EBCDIC_E\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC1 CC_EBCDIC_E\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC2 CC_EBCDIC_I\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_EBCDIC3 CC_EBCDIC_O\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy switch ('~')

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy {

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy case 0137:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_NATIVE CC_EBCDIC_E /* native character code */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy case 0176:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_NATIVE CC_ASCII /* native character code */\n");

1d32ba663e202c24a5a1f2e5aef83fffb447cb7fJohn Wren Kennedy break;

1d32ba663e202c24a5a1f2e5aef83fffb447cb7fJohn Wren Kennedy case 0241:

1d32ba663e202c24a5a1f2e5aef83fffb447cb7fJohn Wren Kennedy switch ('\n')

1d32ba663e202c24a5a1f2e5aef83fffb447cb7fJohn Wren Kennedy {

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy case 0025:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_NATIVE CC_EBCDIC_O /* native character code */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy default:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy switch ('[')

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy {

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy case 0272:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_NATIVE CC_EBCDIC_H /* native character code */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy default:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_NATIVE CC_EBCDIC_I /* native character code */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy }

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy }

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy case 0377:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_NATIVE CC_EBCDIC_S /* native character code */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy default:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy switch ('A')

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy {

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy case 0301:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_NATIVE CC_EBCDIC_O /* native character code */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy default:

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_NATIVE CC_ASCII /* native character code */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy }

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy break;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy }

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy if ('A' == 0101)

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy {

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_ALIEN CC_EBCDIC /* alien character code */\n\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_bel 0007 /* bel character */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_esc 0033 /* esc character */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_sub 0032 /* sub character */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_vt 0013 /* vt character */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy }

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy else

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy {

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_ALIEN CC_ASCII /* alien character code */\n\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_bel 0057 /* bel character */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_esc 0047 /* esc character */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_sub 0077 /* sub character */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy printf("#define CC_vt 0013 /* vt character */\n");

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy }

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy return 0;

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy }

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy}end

d583b39bfb4e2571d3e41097c5c357ffe353ad45John Wren Kennedy