|
Pete, The attached program is one I wrote that blows through the BOM and outputs to a work file. The key is calling MAPICS program AMEPST1R which will give you a group of records at a time. Nathan Quinones Custom Systems Corporation http://eax.cussys.com -----Original Message----- From: mapics-l-bounces@xxxxxxxxxxxx [mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of Pete Olshavsky Sent: Thursday, March 31, 2005 1:49 PM To: mapics-l@xxxxxxxxxxxx Subject: BOM explosion pgm Good Afternoon group. Does anyone have a BOM explosion pgm (that they are willing to share) that will either generate a report or a work file that will mimic how Mapics generates its records into MODATA.. Thanks in Advance Pete --------------------------------- Do you Yahoo!? Make Yahoo! your home page _______________________________________________ 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
. ?*===============================================================*
?* Program Name - EHSEBM01R *
?* Descriptive Name - Build EAX BOM Work File *
?* *
?* (C) Copyright Custom Systems Corporation 2003 *
?* Licensed Material - PROGRAM PROPERTY OF CSC *
?* *
?* Version 01/Modification 00 *
?* Date 5/15/03 by NQ *
?* *
. ?*===============================================================*
?* Files *
. ?*===============================================================*
FEAXBOM UF A E K DISK
. ?*===============================================================*
?* Definitions *
. ?*===============================================================*
D AR1W S 9 0 Dim(24)
D RECS1W E DS ExtName(PSTRUC) Occurs(24)
D Prefix(DS_)
D ARLV1W DS Occurs(24)
D LV 1 2 0
D EXQT1W DS Occurs(24)
D ARQT1D 1 15 6
D CurDate S D DatFmt(*ISO)
D Str S 3P 0
. ?*===============================================================*
?* Parameter Lists *
. ?*===============================================================*
C *Entry Plist
C Parm wwSESS 80
C Parm ITNO1W
C Parm TYPE1W
C AMEPST1R Plist
C Parm FNCT1W 8
C Parm TYPE1W 8
C Parm 24 PGSZ1W 3 0
C Parm ATOP1W 1
C Parm ABOT1W 1
C Parm ITNO1W 15
C Parm CONT1W 3 0
C Parm AR1W
C Parm RECS1W
C Parm ARLV1W
C Parm EXQT1W
C Parm SNBR1W 20
C Parm nnCurDt DATE1W 7 0
C Parm BYPS1W 1
C Parm MGID1W 7
C Parm MGDT1W 512
. ?*===============================================================*
?* Mainline *
. ?*===============================================================*
C Eval FNCT1W = '*START'
C Eval CISEQ = *zeros
C DoU ABOT1W = *on
C Call 'AMEPST1R' AMEPST1R 99
C Exsr LoadWF
C Eval FNCT1W = '*PAGEF'
C Enddo
C Eval FNCT1W = '*CLOSE'
C Call 'AMEPST1R' AMEPST1R 99
C Eval *inlr = *on
. ?*===============================================================*
?* Load Work File *
. ?*===============================================================*
C LoadWF Begsr
?* Page forward requests repeat last record from previous page. So...
?* if paging forward, start at 2nd occurance of data structure.
C Eval Str = 1
C If FNCT1W = '*PAGEF'
C Eval Str = 2
C Endif
C Eval CSESS = wwSESS
Session ID
C Eval TITEM = ITNO1W
Top item number
C Str Do CONT1W X 3 0
C X Occur RECS1W
C X Occur ARLV1W
C Eval CISEQ = CISEQ + 1
Sequence
C Eval CILVL = LV
Level
C Eval PINBR = DS_PINBR
Parent item number
C Eval CINBR = DS_CINBR
Component item numbe
C Eval CITR = *BLANKS
Component item rev
C Eval QTYPR = DS_QTYPR
Quantity per unit
C Eval USRS1 = DS_USRS1
User sequence
C Eval USRS2 = DS_USRS2
User sequence
C Eval LTADJ = DS_LTADJ
Component lead time
C Eval EDATM = DS_EDATM
Effective date from
C Eval EDATO = DS_EDATO
Effective date to
C Write EAXBOMR
C Enddo
C Endsr
. ?*===============================================================*
?* Initialize *
. ?*===============================================================*
C *INZSR Begsr
. ?* Clear any existing records for EAX session
C Dou *in99
C wwSESS Delete EAXBOMR 99
C Enddo
. ?* Get current date
C Time CurDate
C *CYMD Move CurDate nnCurDt 7 0
C Endsr
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.
