Re: CPYSPLF from batch job

John,

You may be able to do what you need by creating a CL with the same name as the submitted CL program, place the new object in a library above the AMALIB_ (if you have a modified XA library, that would be ideal).  In this CL you would use the RTVJOBA as stated earlier but you would also retrieve the actual library name were the original CL object was found (normally AMALIB_).  The reason you do this step is to not repeatedly call the "new" version.

 

The "new" version of the CL would basically perform these functions:

1)  It would retrieve the original CLP program library

2)  It would retrieve the job attributes 

3)  It would call the original XA CL program (passing the correct parms, of course)

4)  When the original program was completed, your "new" version could call any additional programs to perform the CPYSPLF command (and whatever else it needed to do).

 

By creating the program with the same name, you are essentially modifying the program, without modifying it.
 

Make sure the new program has the same parms passed as the original and that you call the original program using this technique - CALL   PGM(&AMALIB/AMIXXX) PARM(&LDA &whatever &whatever).  

 

If you have any questions you can contact me offline at [email protected]

 

Eric Wolf

Independent XA Consultant

 

 
> 
> I am needing to copy the Mapics Open Orders/Back Orders by Item report
> (spool file name AMBDZPFP) to a physical file. I then run the PF through
> an RPGLE program to replace the report date in the header to reflect the
> date the actual data is for.
> 
> 
> 
> The CPYSPLF command requires job name, user and number of the spool file
> being copied. My problem is that the report gets submitted to a random
> batch job so I have no way of finding the job name or number. 
> 
> 
> 
> Has anyone done something similar? Is there a Mapics report override
> that will help me?
> 
> 
> 
> Any help is greatly appreciated.
> 
> 
> 
> Thanks,
> 
> 
> 
> John Furniss
> 
> Applications Programmer
> 
> Allied Machine & Engineering, Corp
> 
> Phone: 330-343-4283, ext. 8371
> 
> email: jfurniss-9lM15Z0VR04AUIqCBpNi1wC/[email protected]
> 
> 
> 
> _______________________________________________
> This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
> To post a message email: MAPICS-L-Zwy7GipZuJhWk0Htik3J/[email protected]
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mapics-l
> or email: MAPICS-L-request-Zwy7GipZuJhWk0Htik3J/[email protected]
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mapics-l.
> 

_________________________________________________________________
NEW mobile Hotmail. Optimized for YOUR phone.  Click here.
http://windowslive.com/Mobile?ocid=TXT_TAGLM_WL_CS_MB_new_hotmail_072009
_______________________________________________
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
To post a message email: MAPICS-L-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mapics-l.