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.



      ********************************************************************
      *
      *  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 thread ...

Follow-Ups:

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

This mailing list archive is Copyright 1997-2021 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.