Documentation >
MAC-PAC Reference and Help >
Technical Support >
Key Concepts and Procedures >
International Translation Facility >
Appendix C - Cross-Reference
Appendix C - Cross-Reference
|
|
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.