From: Willie Moore To: All

Hi, all. Here is the question. We want to start doing the MAPICS saves to disk. We have set up an ASP area for other saves and would like to use it for MAPICS also. This will keep the saves by themselves in case of disk damage. We will back up to tape the next day; that is why we want the saves in their own ASP area. Is there a way to get the save library (AMSLIB) in the ASP area, and would MAPICS know it is there?

From: Dave Shaw To: Willie Moore

I assume you are running MAPICS I or II, not /DB? In /DB, it's just a matter of using the save to disk and copy to tape menu options. In MAPICS I or II, it's not difficult if you have the source for AXZPZY, which is the backup to tape CL program. Modify a copy of that to backup to savefiles and compile it with a different name. If you don't have the source, you should be able to retrieve it from the program with RTVCLSRC if you're on MAPICS I or II (they don't let you do that anymore on /DB). If you need specifics, holler; I have versions for MAPICS I, II, and of course the /DB source lying around.

From: Willie Moore To: Dave Shaw

I am using MAPICS/DB and have been saving to disk. But I want to have the library (AMSLIB) in our ASP area, not where the system wants to put it. I have tried creating a library and then copying AMSLIB to the new library after the save is done, but no objects are copied. Thanks for the answer.

From: Dave Shaw To: Willie Moore

Oh, you want it in a different ASP! No problem; what you need to do is change the default on the CRTSAVF command to the ASP that you want MAPICS to use. I would recommend changing the default on a copy of the command, which you would put in a library above QSYS in your system library list. For example, I use ASP 2 for MAPICS save files, so I did the following:

 CRTLIB LIB(GRNSYS) CHGSYSVAL SYSVAL(QSYSLIBL) + VALUE('GRNSYS QSYS + QSYS2 QHLPSYS + QUSRSYS') CRTDUPOBJ OBJ(CRTSAVF) + FROMLIB(QSYS) + OBJTYPE(*CMD) + TOLIB(GRNSYS) CHGCMDDFT CMD(GRNSYS/CRTSAVF) + NEWDFT('ASP(2)') 

Note that each time you install a new release of OS/400, you need to delete the copy of CRTSAVF, copy it again, and change the command default again. I have a CL program that I run after release upgrades to do this kind of stuff. Oh, I just remembered, they added ASP(*LIBASP) to the CRTSAVF command, didn't they? That would make it easier; just delete AMSLIB and manually recreate it in the ASP that you want the save files in. Since MAPICS doesn't delete and recreate the library, that should do what you want pretty easily.

From: Willie Moore To: Dave Shaw

You are right, and that is what I did. I just built a new AMSLIB in the ASP area I wanted to use. Now it works great. Thanks.