× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



It's an RPGILE program we wrote inhouse to clear the records I mentioned
earlier...
Mod marks and obsolete code removed for clarity...
Disclaimer:
Provided as is without express or implied warranty, use at your own risk.

        *************** Beginning of data
*****************************************************************
0004.00  * Delete transaction records by transaction date
0005.00  *
0017.00 FPCP01     UF   E             DISK
0018.00
0019.00 FPCP02L02  UF   E           K DISK
CoNo, ModN, TrnN
0020.00 FPCP03L02  UF   E           K DISK
CoNo, ModN, TrnN
0021.00 FPCP04L02  UF   E           K DISK
CoNo, ModN, TrnN
0023.00 FPCP06L01  UF   E           K DISK
CoNo, ModN, TrnN
0025.00
0026.00 D Today           S               D
0027.00 D AYearAgo        S              7S 0
0028.00
0029.00
*******************************************************************
0030.00  *  Main
*
0031.00
*******************************************************************
0032.00
0033.00 C                   Read      PCR01
LR
0034.00 C                   DoW       not *inLR
0035.00
0037.00 C                   If        RefD01 < AYearAgo
0038.00 C                   ExSR      Delete
0039.00 C                   EndIf
0040.00
0041.00 C                   Read      PCR01
LR
0042.00 C                   EndDo
0043.00
0049.00
0050.00 C/Exec SQL
0053.00 C+ Delete from PCP52 where RefD52 < :AYearAgo
0056.00
0057.00 C/Exec SQL
0060.00 C+ Delete from PCP53 where RefD53 < :AYearAgo
0062.00 C/End-Exec
0063.00
0064.00 C/Exec SQL
0067.00 C+ Delete from PCP56 where RefD56 < :AYearAgo
0069.00 C/End-Exec
0070.00
0071.00 C/Exec SQL
0074.00 C+ Delete from PCP58 where RefD58 < :AYearAgo
0076.00 C/End-Exec
0077.00
0078.00 C/Exec SQL
0081.00 C+ Delete from PCP59 where RefD59 < :AYearAgo
0083.00 C/End-Exec
0084.00
0085.00 C/Exec SQL
0088.00 C+ Delete from PCP62 where RefD62 < :AYearAgo
0090.00 C/End-Exec
0091.00
0092.00 C/Exec SQL
0095.00 C+ Delete from PCP65 where RefD65 < :AYearAgo
0097.00 C/End-Exec
0098.00
0099.00 C/Exec SQL
0102.00 C+ Delete from PCP93 where RefD93 < :AYearAgo
0104.00 C/End-Exec
0105.00
0106.00 C/Exec SQL
0109.00 C+ Delete from FIP45 where PDat45 < :AYearAgo
0111.00 C/End-Exec
0112.00
0113.00
*******************************************************************
0114.00  * Delete Cost Set records
0115.00
*******************************************************************
0116.00 C     Delete        BegSR
0117.00
0118.00 C                   DoU       not %found
0119.00 C     Key           Delete(e) PCR02
0120.00 C                   EndDo
0121.00
0122.00 C                   DoU       not %found
0123.00 C     Key           Delete(e) PCR03
0124.00 C                   EndDo
0125.00
0126.00 C                   DoU       not %found
0127.00 C     Key           Delete(e) PCR04
0128.00 C                   EndDo
0129.00
0131.00 C                   DoU       not %found
0132.00 C     Key           Delete(e) PCR06
0133.00 C                   EndDo
0135.00
0136.00 C                   Delete(e) PCR01
0137.00
0138.00 C                   EndSR
0139.00
0140.00
*******************************************************************
0141.00  * Initialization subroutine
*
0142.00
*******************************************************************
0143.00 C     *InzSR        BegSR
0144.00
0145.00 C     Key           KList
0146.00 C                   KFld                    CoNo01
0147.00 C                   KFld                    ModN01
0148.00 C                   KFld                    TrnN01
0149.00
0150.00 C                   Time                    Today
0151.00 C     *cymd         Move      Today         AYearAgo
0152.00 C                   Sub       10000         AYearAgo
0153.00
0154.00 C                   EndSR
        ****************** End of data
********************************************************************




Sam Smith <SSmith@centura.co.uk> on 06/27/2001 09:03:10 AM

Please respond to JBAUSERS-L@midrange.com
                                                              
                                                              
                                                              
  To:          "'JBAUSERS-L@midrange.com'"                    
               <JBAUSERS-L@midrange.com>                      
                                                              
  cc:          (bcc: Jeff Klipa/Harvard)                      
                                                              
                                                              
                                                              
  Subject      RE: AFI - Archive Data                         
  :                                                           
                                                              






Thanks Jeff !
What is the machine manager job that you run to purge the
PCP files ? Is it something you have developed in house or
is it part of the JBA facilities ?
We do not use Machine Manager, we use ROBOT to schedule
our jobs so it could be possible for me to run the same
job via ROBOT
I will take a look through the archives you have suggested.
Thanks again for your efforts
Sam
-----Original Message-----
From: Jeff_Klipa/Harvard@harvardind.com
[mailto:Jeff_Klipa/Harvard@harvardind.com]
Sent: 27 June 2001 13:31
To: JBAUSERS-L@midrange.com
Subject: RE: AFI - Archive Data

This message has been successfully virus checked by the Centura Foods Mail
system.
I recall having this discussion on the list in the past so I decided to
search the archives ( http://archive.midrange.com/jbausers-l/index.htm )
and scanned on INP96...  I found 51 threads so may I suggest you look there
for the answer to your question...  Pay particular attention to the
Negative Stock Report (34/INR)...!
These two links should answer your question adequately...  If not, let me
know...
http://archive.midrange.com/jbausers-l/200010/msg00039.html
http://archive.midrange.com/jbausers-l/200010/msg00036.html
Let me take this opportunity to extend my gratitude to David Gibbs and
Midrange.com for their sponsorship of this list and the accompanying
archive...
Thank you.
With regard to the question of reorging the files each month...
Two things...  First we have changed those particular files to REUSE
DELETED RECORDS (*YES)...
And second, we purchased a very excellent package called OS Director from a
company called OS Solutions that automatically reorgs files and a myriad of
other housekeeping details behind the scenes when the AS/400 is not busy...
This is a really sweet package that was recommended to me by someone on
this list and I thank them for it once again...  I am not being compensated
in any way for my comments about OS Director.   I just thought that it
deserved honorable mention since it is such a wonderful tool...  If you are
interested in finding out more about it you can contact me, privately, off
the list : jaklipa@harvardind.com
Thanks again...




Garry Clarke <gclarke@DIMPCO.IE> on 06/27/2001 03:22:51 AM
Please respond to JBAUSERS-L@midrange.com


  To:          "'JBAUSERS-L@midrange.com'"
               <JBAUSERS-L@midrange.com>
  cc:          (bcc: Jeff Klipa/Harvard)


  Subject      RE: AFI - Archive Data
  :






What about INP96?
I presume that, after deleting records, you include a file re-org?

+---
| This is the JBA Software Users Mailing List!
| To submit a new message send your mail to JBAUSERS-L@midrange.com.
| To subscribe to this list send email to JBAUSERS-L-SUB@midrange.com.
| To unsubscribe from this list send email to
JBAUSERS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: doug333@aol.com.
+---
_____________________________________________________________________
This message has been checked for all known viruses by Star Internet
delivered through the MessageLabs Virus Scanning Service. For further
information visit http://www.star.net.uk/stats.asp or alternatively call
Star Internet for details on the Virus Scanning Service.

===========================================================================
This email, its content and any files transmitted with it are confidential
and intended solely for the use of the individual(s) to whom it is
addressed.
If you are not the intended recipient, be advised that you have received
this email in error and that any use, dissemination, forwarding, printing,
or copying of this email is strictly prohibited.
This email, its contents and any files transmitted with it have been
prepared using information believed by the author to be reliable and
accurate, but Centura Foods Ltd. makes no warranty as to accuracy or
completeness. In particular Centura Foods Ltd. does not accept
responsibility for changes made to this email or related files after it
was sent. Any opinions expressed in this email and any related documents
are those of the author and do not necessarily reflect the opinions of
Centura Foods Ltd. or its associated companies.
If you have received this email in error please notify the Centura Foods
Systems HelpDesk by telephone on +44 (0) 1606 830 737.
===========================================================================


_____________________________________________________________________
This message has been checked for all known viruses by Star Internet
delivered through the MessageLabs Virus Scanning Service. For further
information visit http://www.star.net.uk/stats.asp or alternatively call
Star Internet for details on the Virus Scanning Service.
+---
| This is the JBA Software Users Mailing List!
| To submit a new message send your mail to JBAUSERS-L@midrange.com.
| To subscribe to this list send email to JBAUSERS-L-SUB@midrange.com.
| To unsubscribe from this list send email to
JBAUSERS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: doug333@aol.com.
+---



+---
| This is the JBA Software Users Mailing List!
| To submit a new message send your mail to JBAUSERS-L@midrange.com.
| To subscribe to this list send email to JBAUSERS-L-SUB@midrange.com.
| To unsubscribe from this list send email to JBAUSERS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: doug333@aol.com.
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.