|
One is in the source of the program, the other is in the MXACOPY file. Here they are: * Definitions required for MAPICS blow thru IPSRP1P DS 400 I 1 8 FUNC1P I 2 2 FUNC2W I 6 6 FUNC6W I 9 16 TYPE1P I 10 10 TYPE2W I 12 12 TYPE4W I P 17 180PGSZ1P I 19 52 BILL1P I 19 21 SITE2W I 22 36 BILL2W I 37 42 REVN2W I 43 52 ALTS2W I 53 72 SNBR1P I P 73 760CUDT1P I 77 84 CHDT1P I 78 78 CHDT2W I P 85 880RTDT1P I P 89 943QNTY1P I 95 102 EXQT1P I 99 99 QTPR5W I 103 103 ATOP1P I 104 104 ABOT1P I P 105 1060CONT1P I P 107 1123ESBQ1P I 113 114 UNMS1P I 115 129 ENGN1P I 130 1310LOLE1P I 132 135 ITCL1P I 136 175 PSHD1P I 176 176 ITYP1P I 177 206 ITDS1P I 207 221 IPTK1P I 222 228 MGID1P I 229 236 BSTR1P I 237 251 IPTKNP I 252 255 BOMY1P I 256 265 CFID1P I P 266 2758CUCS1P I P 276 2858CUBP1P I 286 325 IPDS1P IRECS1P DS 24 I 1 3 STIDZ I 4 18 PITMZ I 19 24 PITRZ I 25 34 ALTSZ I 35 38 USR1Z I 39 53 CITMZ I 54 59 CITRZ I 60 63 USR2Z I 64 67 OPWUZ I 68 701LTCAZ I P 71 734FOPFZ I P 74 764FOCFZ I P 77 800EDTFZ I P 81 840EDTTZ I 85 85 FOCDZ I 86 87 FONOZ I P 88 933QPERZ I 94 1000UUD1Z I 101 140 UU40Z I 141 150 CRUSZ I 151 160 CRPGZ I P 161 1640CRDTZ I P 165 1680CRTMZ I 169 178 CHUSZ I 179 188 CHPGZ I P 189 1920CHDTZ I P 193 1960CHTMZ I P 197 2023UUQ1Z I P 203 2083UUQ2Z I P 209 2143UUQ3Z I P 215 2203UUQ4Z I P 221 2263UUQ5Z I P 227 2323UUQ6Z I P 233 2383UUQ7Z I 239 243 UUCAZ I 244 245 UUGAZ I P 246 2470UUT1Z I 248 257 CFIDZ I 258 2590LEVELZ I P 260 2709EXQTYZ I P 271 2750PSRRNZ I 276 305 ITDSCZ I 306 320 ENGNOZ I 321 322 UNMSRZ I 323 323 ITTYPZ I 324 327 ITCLZ I P 328 3333QPAAZ I P 334 3393QPACZ I P 340 3453QPASZ The actual code is like this to page thru the bill: * Start at the beginning of the bill C MOVEL'*START' FUNC1P * Page Size C Z-ADD24 PGSZ1P C CALL 'AMDPSR0R' C PARM PSRP1P C PARM RECS1P C 1 OCUR RECS1P C CONT1P DOWGT*ZERO C DO CONT1P LINE 20 C LINE OCUR RECS1P C FUNC1P IFEQ '*START' C LINE ANDGE1 C FUNC1P ORNE '*START' C LINE ANDGT1 C EXSR DATSEL C* RETURNS 30 ON IF NOT IN RANGE C N30 EXSR DATSET <<< this is where we write out records C END the N30 is the effectivity filter C ENDDO * C ABOT1P IFEQ '1' C Z-ADD*ZERO CONT1P C ELSE C MOVEL'*PAGEF' FUNC1P P C CALL 'AMDPSR0R' C PARM PSRP1P C PARM RECS1P C 1 OCUR RECS1P C ENDIF C* C ENDDO C SETON LR The other variables are pretty self explantory. We use some defaults: * Hoshi Specific variables C MOVEL'*I' TYPE1P <- indented C MOVEL'MFG' SITE2W <- site desired C MOVELPINBR BILL2W <- the main item C MOVELPITR REVN2W <- its revision C MOVE *BLANKS ALTS2W <- alternate structure C Z-ADDHDATE CUDT1P <- current C Z-ADDHDATE RTDT1P <- retrieval date C Z-ADD1 QNTY1P <- qty per C MOVEL'*YES' CHDT1P <- use effectivity C MOVE *BLANKS SNBR1P <- S- number C MOVEL'*QTYPR' EXQT1P <- use quantity per C MOVEL'*NO' BSTR1P <- bypass current structure Lots easier than writing your own and taking into account all the variables. HTH Konrad
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.
midrange.com
