Good News Everybody!
The new search engine is LIVE!
Please report any problems to david (at) midrange.com.
|
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
This mailing list archive is Copyright 1997-2026 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
