|
Let's see if this works (the source should be attached as a text file). You should be able to run this through the CPYFRMPCD command aftering copying it into the IFS to bring it back into a source physical file. Cheers! -Jimmy -----Original Message----- From: mapics-l-bounces@xxxxxxxxxxxx [mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of Olga Gunther (Corp) Sent: Monday, July 31, 2006 4:08 PM To: MAPICS ERP System Discussion Subject: Re: [MAPICS-L] Programmatically closing inventory batches Jimmy, I would be interested in receiving a copy of your program, please and thank you! Thank you, Olga Gunther Programming Manager Custom Building Products (562) 598-8808 x 312 http://www.custombuildingproducts.com/ -----Original Message----- From: mapics-l-bounces@xxxxxxxxxxxx [mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of Sansi, Jim Sent: Wednesday, July 26, 2006 11:08 AM To: MAPICS ERP System Discussion Subject: Re: [MAPICS-L] Programmatically closing inventory batches We have a program that does this it also generates a report of which batches it closed, works perfect with no problems on R5 and R7. If you want a copy of the RPG source let me know. -Jimmy -----Original Message----- From: mapics-l-bounces@xxxxxxxxxxxx [mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of Marc.Rohde@xxxxxxxxxxxxxxxx Sent: Wednesday, July 26, 2006 10:12 AM To: MAPICS-L@xxxxxxxxxxxx Subject: [MAPICS-L] Programmatically closing inventory batches Every night we have an operator go through suspended batches and close them through the Mapics interface and DFU active batches that are hung to suspend them to allow them to be manually closed. What problems would I face if I wrote a program to change the batch status on all suspended or "hung active" batches to closed? Following the change I would run the transaction register as usual to get the to finished status. Your feedback is appreciated, Marc Rohde IT Manager Pentair Filtration, Inc. & Everpure, LLC Confidentiality Note: This e-mail message and all attachments to it are intended only for the named recipients and may contain confidential information. If you are not one of the intended recipients, please do not duplicate or forward this e-mail message and immediately delete it from your computer. ______________________________________________________________________ This email has been scanned by the MessageLabs Email Security System. For more information please visit http://www.messagelabs.com/email ______________________________________________________________________ _______________________________________________ This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a message email: MAPICS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/mapics-l or email: MAPICS-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/mapics-l. _______________________________________________ This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a message email: MAPICS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/mapics-l or email: MAPICS-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/mapics-l. _______________________________________________ This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a message email: MAPICS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/mapics-l or email: MAPICS-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/mapics-l.
midrange.com
********************************************************************
*
* Update INTRNC to close active or suspended batches as part of
* prebackup cleanup activites.
*
**********************************************************************
* Maintenance Log:
*
*
*
*
*
**********************************************************************
*
FINTRNC UP E DISK
FQSysPrt O F 132 Printer OFLIND(*IN90)
*
D Count S 5 0
*
C If Not *IN30
C Except Header
C Seton 30
C EndIf
*
C If BStat = 'A' Or
C BStat = 'S'
*
C If *IN90 = *On
C Except Header
C Setoff 90
C EndIf
*
C Except Detail
C Eval BStat = 'C'
C Update INTRNCTA
C Add 1 Count
C EndIf
*
CLR Except PrtCount
*
* Audit Report
*
OQSYSPRT E Header 2 03
O UDATE Y 9
O 42 'Records in Batch file'
O 66 'INTRNC that were active'
O 82 'and auto-closed'
O 125 'Page:'
O PAGE 130
*
O E Header 1
O 17 'Previous Batch'
O 40 'Month/Day Time of'
O 64 'Batch Rcd Error Rcd'
O 77 'Total'
O E Header 2
O 18 'Batch Sts Number'
O 40 'of Update Update'
O 62 'Count Count'
O 78 'Quantity'
O 101 'Total Amount'
*
*
O E Detail 1
O BSTAT 6
O BATCH Z 16
O MODAY Y 28
O UTIME 41 ' : : '
O BCNTM J 52
O BERRS J 63
O TOQTY J 81
O TOAMT J 102
*
*
O E PrtCount 2 1
O 25 'Records updated . . . . :'
O Count J 34
As an Amazon Associate we earn from qualifying purchases.
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.
