/*--+------------------------------------------------------------+--*/ /*--+ PROGRAM ID : $CVTMACADR +--*/ /*--+ PROGRAM NAME : CL OF CONVERT MAC ADDRESS +--*/ /*--+------------------------------------------------------------+--*/ /*--+ VERSION : 1.0 (99/02/25) +--*/ /*--+------------------------------------------------------------+--*/ PGM PARM(&MACADDR) /*--+------------------------------------------------------------+--*/ /* + DECLARE + */ /*--+------------------------------------------------------------+--*/ /* COMMAND(CVTMACADR) PARAMETER(S) */ DCL VAR(&MACADDR ) TYPE(*CHAR) LEN( 12 ) /* MAC ADDRESS */ /* SHARED PARAMETERS FOR THIS PROGRAM */ DCL VAR(&SH_MSG ) TYPE(*CHAR) LEN( 80 ) /* MESSAGE */ DCL VAR(&SH_RESULT ) TYPE(*CHAR) LEN( 12 ) /* RESULT MAC ADDRESS */ /* CONVERT TABLE(CONSTANT) */ DCL VAR(&SH_TBL_0 ) TYPE(*CHAR) LEN( 1 ) VALUE('0') DCL VAR(&SH_TBL_1 ) TYPE(*CHAR) LEN( 1 ) VALUE('8') DCL VAR(&SH_TBL_2 ) TYPE(*CHAR) LEN( 1 ) VALUE('4') DCL VAR(&SH_TBL_3 ) TYPE(*CHAR) LEN( 1 ) VALUE('C') DCL VAR(&SH_TBL_4 ) TYPE(*CHAR) LEN( 1 ) VALUE('2') DCL VAR(&SH_TBL_5 ) TYPE(*CHAR) LEN( 1 ) VALUE('A') DCL VAR(&SH_TBL_6 ) TYPE(*CHAR) LEN( 1 ) VALUE('6') DCL VAR(&SH_TBL_7 ) TYPE(*CHAR) LEN( 1 ) VALUE('E') DCL VAR(&SH_TBL_8 ) TYPE(*CHAR) LEN( 1 ) VALUE('1') DCL VAR(&SH_TBL_9 ) TYPE(*CHAR) LEN( 1 ) VALUE('9') DCL VAR(&SH_TBL_A ) TYPE(*CHAR) LEN( 1 ) VALUE('5') DCL VAR(&SH_TBL_B ) TYPE(*CHAR) LEN( 1 ) VALUE('D') DCL VAR(&SH_TBL_C ) TYPE(*CHAR) LEN( 1 ) VALUE('3') DCL VAR(&SH_TBL_D ) TYPE(*CHAR) LEN( 1 ) VALUE('B') DCL VAR(&SH_TBL_E ) TYPE(*CHAR) LEN( 1 ) VALUE('7') DCL VAR(&SH_TBL_F ) TYPE(*CHAR) LEN( 1 ) VALUE('F') /* SEPARATE MAC ADDRESS */ DCL VAR(&SH_BIT_01 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_02 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_03 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_04 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_05 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_06 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_07 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_08 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_09 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_10 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_11 ) TYPE(*CHAR) LEN( 1 ) DCL VAR(&SH_BIT_12 ) TYPE(*CHAR) LEN( 1 ) /*--+------------------------------------------------------------+--*/ /* + START OF PROGRAM + */ /*--+------------------------------------------------------------+--*/ /*--+------------------------------------------------------------+--*/ /* + M A I N + */ /*--+------------------------------------------------------------+--*/ /* TURN OVER */ CHGVAR VAR(&SH_BIT_01 ) VALUE(%SST(&MACADDR 2 1)) CHGVAR VAR(&SH_BIT_02 ) VALUE(%SST(&MACADDR 1 1)) CHGVAR VAR(&SH_BIT_03 ) VALUE(%SST(&MACADDR 4 1)) CHGVAR VAR(&SH_BIT_04 ) VALUE(%SST(&MACADDR 3 1)) CHGVAR VAR(&SH_BIT_05 ) VALUE(%SST(&MACADDR 6 1)) CHGVAR VAR(&SH_BIT_06 ) VALUE(%SST(&MACADDR 5 1)) CHGVAR VAR(&SH_BIT_07 ) VALUE(%SST(&MACADDR 8 1)) CHGVAR VAR(&SH_BIT_08 ) VALUE(%SST(&MACADDR 7 1)) CHGVAR VAR(&SH_BIT_09 ) VALUE(%SST(&MACADDR 10 1)) CHGVAR VAR(&SH_BIT_10 ) VALUE(%SST(&MACADDR 9 1)) CHGVAR VAR(&SH_BIT_11 ) VALUE(%SST(&MACADDR 12 1)) CHGVAR VAR(&SH_BIT_12 ) VALUE(%SST(&MACADDR 11 1)) /* CONVERT */ /* 1ST BIT */ IF (&SH_BIT_01 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_01 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_01 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_01 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_01 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_01 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_01 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_01 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_01 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_01 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_01 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_01 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_01 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_01 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_01 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_01 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 1 1)) VALUE(&SH_TBL_F) /* 2ND BIT */ IF (&SH_BIT_02 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_02 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_02 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_02 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_02 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_02 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_02 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_02 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_02 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_02 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_02 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_02 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_02 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_02 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_02 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_02 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 2 1)) VALUE(&SH_TBL_F) /* 3RD BIT */ IF (&SH_BIT_03 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_03 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_03 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_03 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_03 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_03 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_03 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_03 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_03 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_03 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_03 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_03 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_03 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_03 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_03 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_03 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 3 1)) VALUE(&SH_TBL_F) /* 4TH BIT */ IF (&SH_BIT_04 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_04 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_04 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_04 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_04 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_04 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_04 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_04 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_04 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_04 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_04 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_04 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_04 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_04 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_04 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_04 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 4 1)) VALUE(&SH_TBL_F) /* 5TH BIT */ IF (&SH_BIT_05 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_05 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_05 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_05 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_05 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_05 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_05 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_05 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_05 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_05 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_05 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_05 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_05 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_05 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_05 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_05 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 5 1)) VALUE(&SH_TBL_F) /* 6TH BIT */ IF (&SH_BIT_06 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_06 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_06 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_06 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_06 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_06 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_06 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_06 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_06 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_06 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_06 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_06 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_06 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_06 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_06 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_06 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 6 1)) VALUE(&SH_TBL_F) /* 7TH BIT */ IF (&SH_BIT_07 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_07 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_07 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_07 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_07 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_07 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_07 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_07 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_07 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_07 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_07 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_07 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_07 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_07 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_07 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_07 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 7 1)) VALUE(&SH_TBL_F) /* 8TH BIT */ IF (&SH_BIT_08 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_08 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_08 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_08 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_08 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_08 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_08 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_08 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_08 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_08 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_08 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_08 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_08 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_08 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_08 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_08 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 8 1)) VALUE(&SH_TBL_F) /* 9TH BIT */ IF (&SH_BIT_09 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_09 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_09 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_09 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_09 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_09 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_09 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_09 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_09 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_09 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_09 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_09 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_09 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_09 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_09 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_09 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 9 1)) VALUE(&SH_TBL_F) /* 10TH BIT */ IF (&SH_BIT_10 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_10 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_10 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_10 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_10 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_10 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_10 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_10 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_10 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_10 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_10 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_10 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_10 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_10 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_10 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_10 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 10 1)) VALUE(&SH_TBL_F) /* 11TH BIT */ IF (&SH_BIT_11 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_11 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_11 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_11 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_11 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_11 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_11 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_11 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_11 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_11 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_11 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_11 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_11 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_11 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_11 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_11 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 11 1)) VALUE(&SH_TBL_F) /* 12TH BIT */ IF (&SH_BIT_12 *EQ '0') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_0) IF (&SH_BIT_12 *EQ '1') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_1) IF (&SH_BIT_12 *EQ '2') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_2) IF (&SH_BIT_12 *EQ '3') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_3) IF (&SH_BIT_12 *EQ '4') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_4) IF (&SH_BIT_12 *EQ '5') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_5) IF (&SH_BIT_12 *EQ '6') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_6) IF (&SH_BIT_12 *EQ '7') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_7) IF (&SH_BIT_12 *EQ '8') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_8) IF (&SH_BIT_12 *EQ '9') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_9) IF (&SH_BIT_12 *EQ 'A') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_A) IF (&SH_BIT_12 *EQ 'B') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_B) IF (&SH_BIT_12 *EQ 'C') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_C) IF (&SH_BIT_12 *EQ 'D') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_D) IF (&SH_BIT_12 *EQ 'E') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_E) IF (&SH_BIT_12 *EQ 'F') + CHGVAR VAR(%SST(&SH_RESULT 12 1)) VALUE(&SH_TBL_F) /* RESULT */ CHGVAR VAR(&SH_MSG ) VALUE('CONVERTED FROM' *BCAT + &MACADDR *BCAT + 'TO' *BCAT + &SH_RESULT) SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&SH_MSG ) + MSGTYPE(*INFO) /*--+------------------------------------------------------------+--*/ /* + END OF PROGRAM + */ /*--+------------------------------------------------------------+--*/ #_EXIT_: ENDPGM