&LAB     PROC  &P,2      OS/3 TRANSLATE MACROS  J.BILL  02/25           AET00010
AETRAN   NAME  0            ASCII TO EBCDIC                             AET00020
EATRAN   NAME  1            EBCDIC TO ASCII                             AET00030
DM$TCE   NAME  2            COMPRESSED CODE TO EBCDIC                   AET00040
DM$TEC   NAME  3            EBCDIC TO COMPRESSED CODE                   AET00050
         GBL   &DM$C1                                                   AET00060
         LCL   &S1                                                      AET00070
&S1      SET   1                                                        AET00080
.*       AETRAN  12/19/74                                               AET00090
.*       EXEC93   IS2.00                                                AET00100
&LAB     DS    0H                                                       AET00110
         DO    '&P(1)'=''                                               AET00120
         PNOTE 'P','POSITIONAL PARAMETER 1 NOT SPECIFIED.'              AET00130
&S1      SET   0                                                        AET00140
         GOTO  .L1                                                      AET00150
         ENDO                                                           AET00160
         DO    (('&P(1)'='(1)')++('&P(1)'='1'))=0                       AET00170
         DM$FNC &P(1)                                                   AET00180
         DO    &DM$C1                                                   AET00190
         PNOTE 'P','FIRST CHARACTER OF POSITIONAL PARAMETER 1 IS NOT ALXAET00200
               PHABETIC.'                                               AET00210
&S1      SET   0                                                        AET00220
         GOTO  .L1                                                      AET00230
         ENDO                                                           AET00240
         L     1,=A(&P(1))                                              AET00250
         ENDO                                                           AET00260
.L1      LABEL                                                          AET00270
         DO    '&P(2)'=''                                               AET00280
         PNOTE 'P','POSITIONAL PARAMETER 2 NOT SPECIFIED.'              AET00290
&S1      SET   0                                                        AET00300
         GOTO  .L2                                                      AET00310
         ENDO                                                           AET00320
         DO    (('&P(2)'='(0)')++('&P(2)'='0'))=0                       AET00330
         DO    (&P(2)<1)++(&P(2)>256)                                   AET00340
         PNOTE 'P','NUMBER OF BYTES IS GREATER THAN 256 OR LESS THAN 1.XAET00350
               '                                                        AET00360
&S1      SET   0                                                        AET00370
         GOTO  .L2                                                      AET00380
         ENDO                                                           AET00390
         LA    0,&P(2)(0,0)                                             AET00400
         ENDO                                                           AET00410
.L2      LABEL                                                          AET00420
         DO    (&P(0)=0)++(&P(0)=2)  ASC TO EB OR COMP TO EB            AET00430
         SLL   0,9                                                      AET00440
         ENDO                                                           AET00450
         DO    &S1                                                      AET00460
         DO    (&P(0)=0)++(&P(0)=1)                                     AET00470
         SVC   62                                                       AET00480
         GOTO  .L3                                                      AET00490
         ENDO                                                           AET00500
         SVC   63                                                       AET00510
         GOTO  .L3                                                      AET00520
         ENDO                                                           AET00530
         BCR   0,0                                                      AET00540
.L3      LABEL                                                          AET00550
         END                                                            AET00560
