MODULE osm$translate_tables;
?? LEFT := 1, RIGHT := 110 ??
*copyc oss$job_paged_literal

  VAR osv$ascii_to_ebcdic: [ XDCL, #GATE, READ, oss$job_paged_literal] array [0 .. 255] of 0 .. 255 := [
      000(16), 001(16), 002(16), 003(16), 037(16), 02D(16), 02E(16), 02F(16),
      016(16), 005(16), 025(16), 00B(16), 00C(16), 00D(16), 00E(16), 00F(16),
      010(16), 011(16), 012(16), 013(16), 03C(16), 03D(16), 032(16), 026(16),
      018(16), 019(16), 03F(16), 027(16), 01C(16), 01D(16), 01E(16), 01F(16),
      040(16), 04F(16), 07F(16), 07B(16), 05B(16), 06C(16), 050(16), 07D(16),
      04D(16), 05D(16), 05C(16), 04E(16), 06B(16), 060(16), 04B(16), 061(16),
      0F0(16), 0F1(16), 0F2(16), 0F3(16), 0F4(16), 0F5(16), 0F6(16), 0F7(16),
      0F8(16), 0F9(16), 07A(16), 05E(16), 04C(16), 07E(16), 06E(16), 06F(16),
      07C(16), 0C1(16), 0C2(16), 0C3(16), 0C4(16), 0C5(16), 0C6(16), 0C7(16),
      0C8(16), 0C9(16), 0D1(16), 0D2(16), 0D3(16), 0D4(16), 0D5(16), 0D6(16),
      0D7(16), 0D8(16), 0D9(16), 0E2(16), 0E3(16), 0E4(16), 0E5(16), 0E6(16),
      0E7(16), 0E8(16), 0E9(16), 04A(16), 0E0(16), 05A(16), 05F(16), 06D(16),
      079(16), 081(16), 082(16), 083(16), 084(16), 085(16), 086(16), 087(16),
      088(16), 089(16), 091(16), 092(16), 093(16), 094(16), 095(16), 096(16),
      097(16), 098(16), 099(16), 0A2(16), 0A3(16), 0A4(16), 0A5(16), 0A6(16),
      0A7(16), 0A8(16), 0A9(16), 0C0(16), 06A(16), 0D0(16), 0A1(16), 007(16),
      020(16), 021(16), 022(16), 023(16), 024(16), 015(16), 006(16), 017(16),
      028(16), 029(16), 02A(16), 02B(16), 02C(16), 009(16), 00A(16), 01B(16),
      030(16), 031(16), 01A(16), 033(16), 034(16), 035(16), 036(16), 008(16),
      038(16), 039(16), 03A(16), 03B(16), 004(16), 014(16), 03E(16), 0E1(16),
      041(16), 042(16), 043(16), 044(16), 045(16), 046(16), 047(16), 048(16),
      049(16), 051(16), 052(16), 053(16), 054(16), 055(16), 056(16), 057(16),
      058(16), 059(16), 062(16), 063(16), 064(16), 065(16), 066(16), 067(16),
      068(16), 069(16), 070(16), 071(16), 072(16), 073(16), 074(16), 075(16),
      076(16), 077(16), 078(16), 080(16), 08A(16), 08B(16), 08C(16), 08D(16),
      08E(16), 08F(16), 090(16), 09A(16), 09B(16), 09C(16), 09D(16), 09E(16),
      09F(16), 0A0(16), 0AA(16), 0AB(16), 0AC(16), 0AD(16), 0AE(16), 0AF(16),
      0B0(16), 0B1(16), 0B2(16), 0B3(16), 0B4(16), 0B5(16), 0B6(16), 0B7(16),
      0B8(16), 0B9(16), 0BA(16), 0BB(16), 0BC(16), 0BD(16), 0BE(16), 0BF(16),
      0CA(16), 0CB(16), 0CC(16), 0CD(16), 0CE(16), 0CF(16), 0DA(16), 0DB(16),
      0DC(16), 0DD(16), 0DE(16), 0DF(16), 0EA(16), 0EB(16), 0EC(16), 0ED(16),
      0EE(16), 0EF(16), 0FA(16), 0FB(16), 0FC(16), 0FD(16), 0FE(16), 0FF(16)];

  ?? EJECT ??
  VAR osv$ebcdic_to_ascii: [ XDCL, #GATE, READ, oss$job_paged_literal] array [0 .. 255] of 0 .. 255 := [
      000(16), 001(16), 002(16), 003(16), 09C(16), 009(16), 086(16), 07F(16),
      097(16), 08D(16), 08E(16), 00B(16), 00C(16), 00D(16), 00E(16), 00F(16),
      010(16), 011(16), 012(16), 013(16), 09D(16), 085(16), 008(16), 087(16),
      018(16), 019(16), 092(16), 08F(16), 01C(16), 01D(16), 01E(16), 01F(16),
      080(16), 081(16), 082(16), 083(16), 084(16), 00A(16), 017(16), 01B(16),
      088(16), 089(16), 08A(16), 08B(16), 08C(16), 005(16), 006(16), 007(16),
      090(16), 091(16), 016(16), 093(16), 094(16), 095(16), 096(16), 004(16),
      098(16), 099(16), 09A(16), 09B(16), 014(16), 015(16), 09E(16), 01A(16),
      020(16), 0A0(16), 0A1(16), 0A2(16), 0A3(16), 0A4(16), 0A5(16), 0A6(16),
      0A7(16), 0A8(16), 05B(16), 02E(16), 03C(16), 028(16), 02B(16), 021(16),
      026(16), 0A9(16), 0AA(16), 0AB(16), 0AC(16), 0AD(16), 0AE(16), 0AF(16),
      0B0(16), 0B1(16), 05D(16), 024(16), 02A(16), 029(16), 03B(16), 05E(16),
      02D(16), 02F(16), 0B2(16), 0B3(16), 0B4(16), 0B5(16), 0B6(16), 0B7(16),
      0B8(16), 0B9(16), 07C(16), 02C(16), 025(16), 05F(16), 03E(16), 03F(16),
      0BA(16), 0BB(16), 0BC(16), 0BD(16), 0BE(16), 0BF(16), 0C0(16), 0C1(16),
      0C2(16), 060(16), 03A(16), 023(16), 040(16), 027(16), 03D(16), 022(16),
      0C3(16), 061(16), 062(16), 063(16), 064(16), 065(16), 066(16), 067(16),
      068(16), 069(16), 0C4(16), 0C5(16), 0C6(16), 0C7(16), 0C8(16), 0C9(16),
      0CA(16), 06A(16), 06B(16), 06C(16), 06D(16), 06E(16), 06F(16), 070(16),
      071(16), 072(16), 0CB(16), 0CC(16), 0CD(16), 0CE(16), 0CF(16), 0D0(16),
      0D1(16), 07E(16), 073(16), 074(16), 075(16), 076(16), 077(16), 078(16),
      079(16), 07A(16), 0D2(16), 0D3(16), 0D4(16), 0D5(16), 0D6(16), 0D7(16),
      0D8(16), 0D9(16), 0DA(16), 0DB(16), 0DC(16), 0DD(16), 0DE(16), 0DF(16),
      0E0(16), 0E1(16), 0E2(16), 0E3(16), 0E4(16), 0E5(16), 0E6(16), 0E7(16),
      07B(16), 041(16), 042(16), 043(16), 044(16), 045(16), 046(16), 047(16),
      048(16), 049(16), 0E8(16), 0E9(16), 0EA(16), 0EB(16), 0EC(16), 0ED(16),
      07D(16), 04A(16), 04B(16), 04C(16), 04D(16), 04E(16), 04F(16), 050(16),
      051(16), 052(16), 0EE(16), 0EF(16), 0F0(16), 0F1(16), 0F2(16), 0F3(16),
      05C(16), 09F(16), 053(16), 054(16), 055(16), 056(16), 057(16), 058(16),
      059(16), 05A(16), 0F4(16), 0F5(16), 0F6(16), 0F7(16), 0F8(16), 0F9(16),
      030(16), 031(16), 032(16), 033(16), 034(16), 035(16), 036(16), 037(16),
      038(16), 039(16), 0FA(16), 0FB(16), 0FC(16), 0FD(16), 0FE(16), 0FF(16)];

MODEND osm$translate_tables;
