Hi,

I am getting this error

(FOC36318) MAP NAME: fochold ALREADY USED. USE "APP MAP fochold" TO UNMAP

changing the hold name would resolve the issue. But just would like to check if there is really any way to UNMAP the maping as said in the error message.

This message has been edited. Last edited by: Kerry,

Do you have an APP MAP statement in your code?

If you do not then you should not be getting this error

Can you post the code that is causing the error?

-DEFAULT &EXECRPTHLDLOC = '/home/apps/';
 -REPEAT ENDLOOP 3 TIMES
-SET &SUP_LVL = &START_LVL;
-SET &SUP_LWLVL = &SUP_LVL - 1;
-SET &HLDFILE = &EXECRPTHLDLOC||'lvl'||&SUP_LVL.EVAL||'car'||'/';
-*
APP ENABLE
APP MAP FOCHOLD &HLDFILE
APP HOLD FOCHOLD
-RUN
-*
TABLE FILE CAR
PRINT *
ON TABLE HOLD AS CAR_OPT
END
-RUN
-*
-RUN
-ENDLOOP
-EXIT 

The code is actually little big so putting the idea here.
I have 3 different directory in /home/apps/ as lvl1car, lvl2car and lvl3car. I was expecting to save the output of the table file command to these three directories using loop. I actual case I have different outputs going to different directories.

_MKS

In the code you posted, &SUP_LVL remains constant through the three iterations of the loop.

It may be easier if you used -REPEAT with FOR FROM TO.

-REPEAT ENDLOOP FOR &SUP_LVL FROM 1 TO 3 ;
.
.
.
-ENDLOOP

Sorry I missed incrementing ...

  -DEFAULT &EXECRPTHLDLOC = '/home/apps/';
 -REPEAT ENDLOOP 3 TIMES
-SET &SUP_LVL = &START_LVL;
-SET &SUP_LWLVL = &SUP_LVL - 1;
-SET &HLDFILE = &EXECRPTHLDLOC||'lvl'||&SUP_LVL.EVAL||'car'||'/';
-SET &START_LVL = &START_LVL - 1;
-*
APP ENABLE
APP MAP FOCHOLD &HLDFILE
APP HOLD FOCHOLD
-RUN
-*
TABLE FILE CAR
PRINT *
ON TABLE HOLD AS CAR_OPT
END
-RUN
-*
-RUN
-ENDLOOP
-EXIT

I am getting same error even if I use FOR loop.

If I understand the question correctly, you want to HOLD 3 different files in 3 different directories.

-REPEAT :LB_LOOP1 FOR &I FROM 1 TO 3;
-* --- Name of directory "under" APPROOT
APP HOLD LVL&I.EVALCAR
TABLE FILE CAR
  SUM 
    DEALER_COST
  BY COUNTRY
  ON TABLE HOLD AS HLDLVL&I.EVAL FORMAT ALPHA
END
-:LB_LOOP1

Note:
".EVAL" is generally superfluous in a Focus command (any line that does not start with "-"), since the script (amper) variable is always replaced by the character representation of its value before the line is placed in FocStack.

- - -

.EVAL will make a difference in a Focus command if the value of the referenced script variable is the name of another script variable. For example:

-SET &ECHO=ON;
-SET &ALPHA = '&' | BETA;
-SET &BETA  = CAR;
? FDT &ALPHA
-RUN
? FDT &ALPHA.EVAL

(Try it)

Assuming each app directory exists, change the code to this.

APP ENABLE
APP MAP FOCHOLD&SUP_LVL &HLDFILE
APP HOLD FOCHOLD&SUP_LVL

or

APP ENABLE
APP MAP FOCHOLD
APP MAP FOCHOLD &HLDFILE
APP HOLD FOCHOLDL