MAC-PAC Homecontact ussupport login 
Documentation > MAC-PAC Reference and Help > Technical Support > Key Concepts and Procedures > International Translation Facility > Appendix C - Cross-Reference

Appendix C - Cross-Reference

 

 

 

X-REF

DESCRIPTION

1.

'The character string to be translated is 'MAC-PAC SYSTEM ERROR HAS OCCURRED'.

2.

'+' indicates continuation on another line.

3.

The last line of the string does not have a '+'.

4.

All lines of the string except the last have all of factor two used for the literal.  The last line has only the number of characters remaining.

5.

Strings not to be translated have no '-' or '+' in column 80.

6.

The whole character string is coded on adjacent calculation spec lines.

 

0588.00 00220C*****************************************************************

0589.00 00230C*                                                             PRO

0590.00 00240C           PROCVV    BEGSR                                    PRO

0591.00 P0200**                                                                

0592.00 00250C*                                                             PRO

0593.00 00260C* INITIALIZE ERROR CODE                                       PRO

0594.00 00270C*                                                             PRO

0595.00 00280C                     MOVE *BLANKS   ERRCDE                    PRO

0596.00 00290C*                                                             PRO

0597.00 00300C* INITIALIZE VALID VALUES PARAMETERS                          PRO

0598.00 00310C*                                                             PRO

0599.00 00320C                     MOVE *BLANKS   VGENDS                    PRO

0600.00 00330C*                                                             PRO

0601.00 00340C* PROCESS THE CURSOR VALIDATION AND RETRIEVE THE WINDOW NAME  PRO

0602.00 00350C*                                                             PRO

0603.00 00360C                     MOVELDSPFMT    VVCSCR                    PRO

0604.00 00370C                     EXSR ZVLCUR                              PRO

0605.00 00380C                     MOVE VVCQUD    VVQUAD                    PRO

0606.00 00390C*                                                             PRO

0607.00 00400C* IF THE WINDOW NAME IS BLANK, DISPLAY ERROR MESSAGE          PRO

0608.00 00410C*                                                             PRO

0609.00 00420C           VVCPGM    IFEQ *BLANKS                             PRO

0610.00 00430C                     MOVE C3547     ERRCDE                    PRO

0611.00 00440C                     ELSE                                     PRO

0612.00 P0300**                                                                

0613.00 00450C*                                                             PRO

0614.00 00460C* PLANT PROMPT                                                PRO

0615.00 00470C*                                                             PRO

0616.00 00480C           VVCPGM    IFEQ IC172W                              PRO

0617.00 00490C*                                                             PRO

0618.00 00500C* IF THE PROMPT WAS MADE WHILE THE NEW PLANT MODE IS ON,      PRO

0619.00 00510C* CALL THE NEW PLANT WINDOW PROGRAM                           PRO

0620.00 00520C*                                                             PRO

0621.00 00530C           *IN79     IFEQ ON                                  PRO

0622.00 00540C                     MOVE CZPLNT    VVPLNT                    PRO

0623.00 00550C*                                                             PRO

0624.00 00560C                     EXSR ZWNDCL                              PRO

0625.00 00570C*                                                             PRO

0626.00 00580C* RETURN SELECTED VALUES TO THE CORRESPONDING SCREEN FIELDS   PRO

0627.00 00590C*                                                             PRO

0628.00 00600C                     MOVE VVPLNT    CZPLNT                    PRO

0629.00 00610C*                                                             PRO

0630.00 00620C* ELSE IF THE FIELD WAS PROMPTED ON THE DETAIL SCREEN,        PRO

0631.00 00630C* DISPLAY ERROR MESSAGE.                                      PRO

0632.00 00640C*                                                             PRO

0633.00 00650C                     ELSE                                     PRO

0634.00 P0400**                                                                

0635.00 00660C                     MOVE C3547     ERRCDE                    PRO

0636.00 00670C                     END                                      PRO

0637.00 00680C*                                                             PRO

0638.00 00690C                     ELSE                                     PRO

0639.00 00700C*                                                             PRO

0640.00 00710C* WORKCENTER NUMBER PROMPT                                    PRO

0641.00 00720C*                                                             PRO

0642.00 00730C           VVCPGM    IFEQ ME100W                              PRO

0643.00 00740C*                                                             PRO

0644.00 00750C           VVCOCR    IFEQ ONEC                                PRO

0645.00 00760C           *IN11     IFEQ OFF                                 PRO

0646.00 00770C           *IN79     ANDEQOFF                                 PRO

0647.00 00780C                     MOVE CZPLNT    VVPLNT                    PRO

0648.00 00790C                     MOVELCZWCID    VVDATA                    PRO

0649.00 00800C*                                                             PRO

0650.00 00810C                     EXSR ZWNDCL                              PRO

0651.00 00820C*                                                             PRO

0652.00 00830C* RETURN SELECTED VALUE TO THE SCREEN FIELD                   PRO

0653.00 00840C*                                                             PRO

0654.00 00850C                     MOVELVVDATA    CZWCID                    PRO

0655.00 P0500**                                                                 

         A Coded Calculation Specification and Cross-Reference.

0029.00 00280A*****************************************************************

0031.00 00300A*    FORMAT      -  ME800S01                                     

0032.00 00310A*                                                                

0033.00 00320A*    DESCRIPTION -  SELECT SCREEN                                

0034.00 00330A*                                                                 

0035.00 00340A*****************************************************************

0036.00 P0200**                                                                

0037.00 00350A          R ME800S01                  TEXT('WORKCENTER INQUIRY + 

0038.00 00360A                                            SELECT')             

0039.00 00370A                                      KEEP                       

0040.00 00380A                                      BLINK                      

0041.00 00390A                                      CHGINPDFT                  

0042.00 00400A N53N91N92                            CF02                       

0043.00 00410A                                      CA03                       

0044.00 00420A                                      CF04                       

0045.00 00430A N53                                  CF07                       

0046.00 00440A  10N53N91                                                       

0047.00 00450AAN92                                  CF08                       

0048.00 00460A N53N91N92                            CF09                       

0049.00 00470A N91                                                             

0050.00 00480AA 10N53N92                            CF16                       

0051.00 00490A N53                                  CF17                       

0052.00 00500A  46                                  CSRLOC(ROWPOS COLPOS)      

0053.00 00510A*                                                                 

0054.00 00520A            ROWPOS    R        H                                 

0055.00 00530A            COLPOS    R        H                                 

0056.00 00540A*                                                                

0057.00 00550A*&&  VVIC172MW   01  3  CZPLNT  01  13  01  19  &&               

0058.00 00560A*&&  VVME100MW   01  3  CZWCID  07  29  07  50  &&               

0059.00 00570A*&&                     CMDKEY  22  01  23  80  &&               

0060.00 00580A*                                                                

0061.00 00590A            USERID    R        O  1  2                           

0062.00 00600A                                  1 13'PLT'                      

0063.00 00610A  53                                  DSPATR(RI UL)              

0064.00 00620A            CZPLNT    R        B  1 17                           

0065.00 00630A  52                                  DSPATR(RI)                 

0066.00 00640A  53                                  DSPATR(PC UL)              

0067.00 00650A N53                                  DSPATR(PR)                 

0068.00 00660A  52                                  COLOR(RED)                 

0069.00 00670A N52 53                               COLOR(WHT)                 

0070.00 00680A                                  1 23'     MANUFACTURING ENGINEE

0071.00 00690A                                      COLOR(WHT)                 

0072.00 00700A                                  1 72DATE EDTCDE(Y)             

0073.00 00710A            WSID      R        O  2  2                           

0074.00 00720A                                  2 23'        WORKCENTER INQUIRY

0075.00 00730A                                      COLOR(WHT)                 

0076.00 00740A                                  2 74'SELECT'                   

0077.00 00750A                                  7 29'Workcenter Number'        

0078.00 00760A            CZWCID    R        B  7 48DSPATR(UL)                 

0079.00 00770A  53                                  DSPATR(PR)                 

0080.00 00780A N56                                  COLOR(WHT)                 

0081.00 00790A  56                                  DSPATR(RI)                 

0082.00 00800A  56                                  COLOR(RED)                 

0083.00 00810A N53N91N92                       22  2'F2=Command         '      

0084.00 00820A                                      COLOR(BLU)                 

0085.00 00830A  53N92                                                           

0086.00 00840AON53 91N92                       22  2'F3=Exit            '      

0087.00 00850A                                      COLOR(BLU)                 

0088.00 00860A  92                                                             

0089.00 00870AON53N91                          22 22'F3=Exit            '      

0090.00 00880A                                      COLOR(BLU)                 

0091.00 00890A  53                                                              

0092.00 00900AON53 91                          22 22'F4=Prompt          '      

0093.00 00910A                                      COLOR(BLU)                 

0094.00 00920A  92                                                             

0095.00 00930AON53N91                          22 42'F4=Prompt          '      

0096.00 00940A                                      COLOR(BLU)                 

0097.00 00950A N53N91                          22 62'F7=W/C Where-Used  '       

0098.00 00960A                                      COLOR(BLU)                 

0099.00 00970A N53 91                          22 42'F7=W/C Where-Used  '      

0100.00 00980A                                      COLOR(BLU)                 

0101.00 00990A  10N53N91                                                       

           A Coded DDS Member.

0588.00 00220C*****************************************************************

0589.00 00230C*                                                             PRO

0590.00 00240C           PROCVV    BEGSR                                    PRO

0591.00 P0200**                                                                

0592.00 00250C*                                                             PRO

0593.00 00260C* INITIALIZE ERROR CODE                                       PRO

0594.00 00270C*                                                             PRO

0595.00 00280C                     MOVE *BLANKS   ERRCDE                    PRO

0596.00 00290C*                                                             PRO

0597.00 00300C* INITIALIZE VALID VALUES PARAMETERS                          PRO

0598.00 00310C*                                                             PRO

0599.00 00320C                     MOVE *BLANKS   VGENDS                    PRO

0600.00 00330C*                                                             PRO

0601.00 00340C* PROCESS THE CURSOR VALIDATION AND RETRIEVE THE WINDOW NAME  PRO

0602.00 00350C*                                                             PRO

0603.00 00360C                     MOVELDSPFMT    VVCSCR                    PRO

0604.00 00370C                     EXSR ZVLCUR                              PRO

0605.00 00380C                     MOVE VVCQUD    VVQUAD                    PRO

0606.00 00390C*                                                             PRO

0607.00 00400C* IF THE WINDOW NAME IS BLANK, DISPLAY ERROR MESSAGE          PRO

0608.00 00410C*                                                             PRO

0609.00 00420C           VVCPGM    IFEQ *BLANKS                             PRO

0610.00 00430C                     MOVE C3547     ERRCDE                    PRO

0611.00 00440C                     ELSE                                     PRO

0612.00 P0300**                                                                

0613.00 00450C*                                                             PRO

0614.00 00460C* PLANT PROMPT                                                PRO

0615.00 00470C*                                                             PRO

0616.00 00480C           VVCPGM    IFEQ IC172W                              PRO

0617.00 00490C*                                                             PRO

0618.00 00500C* IF THE PROMPT WAS MADE WHILE THE NEW PLANT MODE IS ON,      PRO

0619.00 00510C* CALL THE NEW PLANT WINDOW PROGRAM                           PRO

0620.00 00520C*                                                             PRO

0621.00 00530C           *IN79     IFEQ ON                                  PRO

0622.00 00540C                     MOVE CZPLNT    VVPLNT                    PRO

0623.00 00550C*                                                             PRO

0624.00 00560C                     EXSR ZWNDCL                              PRO

0625.00 00570C*                                                             PRO

0626.00 00580C* RETURN SELECTED VALUES TO THE CORRESPONDING SCREEN FIELDS   PRO

0627.00 00590C*                                                             PRO

0628.00 00600C                     MOVE VVPLNT    CZPLNT                    PRO

0629.00 00610C*                                                             PRO

0630.00 00620C* ELSE IF THE FIELD WAS PROMPTED ON THE DETAIL SCREEN,        PRO

0631.00 00630C* DISPLAY ERROR MESSAGE.                                      PRO

0632.00 00640C*                                                             PRO

0633.00 00650C                     ELSE                                     PRO

0634.00 P0400**                                                                

0635.00 00660C                     MOVE C3547     ERRCDE                    PRO

0636.00 00670C                     END                                      PRO

0637.00 00680C*                                                             PRO

0638.00 00690C                     ELSE                                     PRO

0639.00 00700C*                                                             PRO

0640.00 00710C* WORKCENTER NUMBER PROMPT                                    PRO

0641.00 00720C*                                                             PRO

0642.00 00730C           VVCPGM    IFEQ ME100W                              PRO

0643.00 00740C*                                                             PRO

0644.00 00750C           VVCOCR    IFEQ ONEC                                PRO

0645.00 00760C           *IN11     IFEQ OFF                                 PRO

0646.00 00770C           *IN79     ANDEQOFF                                 PRO

0647.00 00780C                     MOVE CZPLNT    VVPLNT                    PRO

0648.00 00790C                     MOVELCZWCID    VVDATA                    PRO

0649.00 00800C*                                                             PRO

0650.00 00810C                     EXSR ZWNDCL                              PRO

0651.00 00820C*                                                             PRO

0652.00 00830C* RETURN SELECTED VALUE TO THE SCREEN FIELD                   PRO

0653.00 00840C*                                                             PRO

0654.00 00850C                     MOVELVVDATA    CZWCID                    PRO

0655.00 P0500**                                                                

           A Coded RPG Member.