SeanHoppe.com › EXTOL EDI Examples › EXTOL Exit Point RPG Programs › EXTOL RPG Program: DUMPEXIT
H/TITLE Print RPG dump at enit point - example exit pgm
H 1 Y
Z* CRTRPGPGM
Z* OPTION(*NOXREF)
*
W* Warning: This program does not set on the LR indicator
*
H* SYNOPSIS :
H* Example of exit program with parameter list type "1"
H*
*
H* Company : ExtoL, Inc.
H* System : ExtoL EDI Integrator
H* User name : EXTOLOWN
H* Date generated: 02/12/96
H* (C) Copyright : ExtoL, Inc. 1988,1996
*
*================================================================
M* Maintenance :
*================================================================
* Parameter declarations
IP1PARM DS
* O : MAP Function status
I 1 1 P1FSTS
IP2PARM DS
* O : MAP In process status
I 1 1 P2ISTS
IP3PARM DS
* FLD: Trading pnr msg cls exit
* I : MAP Message level event code
I 1 2 P3MLEV
* I : MAP Processing option
I 3 3 P3PROP
* I : MAP Scheduling priority
I 4 4 P3SCPR
* I : MAP Submit with job name
I 5 14 P3SBJN
* I : MAP Submit with job desc
I 15 24 P3SBJD
* I : MAP Submit with job desc libr
I 25 34 P3SJDL
* I : MAP Submit to job queue
I 35 44 P3SBJQ
* I : MAP Submit job queue priority
I 45 45 P3SBJP
* I : MAP Submit with user name
I 46 55 P3SBJU
* I : MAP Submit with routing data
I 56 95 P3SRTG
* I : MAP Days to retain data
I P 96 980P3DRDT
* I : MAP Days to retain logs
I P 99 1010P3DRLG
* I : MAP Hours before ack is late
I P 102 1042P3HRAL
* I : MAP Exit point status
I 105 105 P3EXST
* I : MAP Exit point operation
I 106 106 P3EXOP
* I : MAP Exit action on return
I 107 107 P3EACT
* I : MAP Return value pass
I 108 114 P3PRTN
* I : MAP Function status - pass
I 115 115 P3FSPA
* I : MAP In process status - pass
I 116 116 P3ISPA
* I : MAP Return value fail
I 117 123 P3FRTN
* I : MAP Function status - fail
I 124 124 P3FSFA
* I : MAP In process status - fail
I 125 125 P3ISFA
* I : MAP External pgm parm type
I 126 126 P3EXPT
* I : MAP External program name
I 127 136 P3EXPG
* I : MAP External program library
I 137 146 P3EXLB
* I : MAP Exit command string
I 147 402 P3ECMD
IP4PARM DS
* FLD: Log of message
* I : MAP Message log number
I P 1 60P4MSLN
* I : MAP Connection log number
I P 7 100P4CNLN
* I : MAP Interchange log number
I P 11 150P4INLN
* I : MAP Group log number
I P 16 200P4GPLN
* I : MAP Application data log #
I P 21 250P4APLN
* I : MAP Trading partner codeRef 1
I 26 31 P4TPC1
* I : MAP Group code Ref 1
I 32 37 P4GPC1
* I : MAP Message ID
I 38 43 P4MSID
* I : MAP Message class
I 44 53 P4MSCL
* I : MAP Message ID Ref 1
I 54 59 P4MSI1
* I : MAP Message class Ref 1
I 60 69 P4MSC1
* I : MAP Message direction
I 70 70 P4MSDI
* I : MAP Function status - message
I 71 71 P4FSTM
* I : MAP In process status - msg
I 72 72 P4ISTM
* I : MAP Ack status - message
I 73 73 P4ASTM
* I : MAP Reference # 1
I 74 103 P4REF1
* I : MAP Reference # 2
I 104 133 P4REF2
* I : MAP Reference # 3
I 134 163 P4REF3
* I : MAP Reference date 1
I P 164 1690P4RFD1
* I : MAP Reference date 2
I P 170 1750P4RFD2
* I : MAP Message control reference
I 176 189 P4MSCR
* I : MAP Controlling agncy log msg
I 190 191 P4CTAM
* I : MAP Standard class log of msg
I 192 192 P4SCLM
* I : MAP Industry group log of msg
I 193 193 P4IGLM
* I : MAP V-R Log of message
I 194 199 P4VRLM
* I : MAP Industry group ID log msg
I 200 205 P4IGIM
* I : MAP Common access reference
I 206 240 P4CARF
* I : MAP Transfer status
I 241 241 P4STTF
* I : MAP Transfer sequence
I P 242 2430P4SQTF
* I : MAP Start wrapped record
I P 244 2480P4WRRS
* I : MAP Start wrap char position
I P 249 2510P4WRCS
* I : MAP Application file name
I 252 261 P4GFIL
* I : MAP Record format name
I 262 271 P4RCFM
* I : MAP Relative record number
I P 272 2760P4RRNM
* I : MAP Start nonwrapped record
I P 277 2810P4NWRS
* I : MAP End nonwrapped record
I P 282 2860P4NWRE
* I : MAP Start nonwrap record(app)
I P 287 2910P4NWAS
* I : MAP End nonwrap record (app)
I P 292 2960P4NWAE
* I : MAP Sequence# of assoc. ack.
I P 297 3020P4AREF
* I : MAP Translation job control
I P 303 3080P4TJOB
/EJECT
*****************************************************************
* Entry parameters
C *ENTRY PLIST
C PARM P0RTN 7
C P1FSTS PARM P1FSTS WP0001 1 Function status
C P2ISTS PARM P2ISTS WP0002 1 In process stat
C P3MLEV PARM WP0003 2 Message level e
C P3PROP PARM WP0004 1 Processing opti
C P3SCPR PARM WP0005 1 Scheduling prio
C P3SBJN PARM WP0006 10 Submit with job
C P3SBJD PARM WP0007 10 Submit with job
C P3SJDL PARM WP0008 10 Submit with job
C P3SBJQ PARM WP0009 10 Submit to job q
C P3SBJP PARM WP0010 1 Submit job queu
C P3SBJU PARM WP0011 10 Submit with use
C P3SRTG PARM WP0012 40 Submit with rou
C P3DRDT PARM WP0013 50 Days to retain
C P3DRLG PARM WP0014 50 Days to retain
C P3HRAL PARM WP0015 52 Hours before ac
C P3EXST PARM WP0016 1 Exit point stat
C P3EXOP PARM WP0017 1 Exit point oper
C P3EACT PARM WP0018 1 Exit action on
C P3PRTN PARM WP0019 7 Return value pa
C P3FSPA PARM WP0020 1 Function status
C P3ISPA PARM WP0021 1 In process stat
C P3FRTN PARM WP0022 7 Return value fa
C P3FSFA PARM WP0023 1 Function status
C P3ISFA PARM WP0024 1 In process stat
C P3EXPT PARM WP0025 1 External pgm pa
C P3EXPG PARM WP0026 10 External progra
C P3EXLB PARM WP0027 10 External progra
C P3ECMD PARM WP0028256 Exit command st
C P4MSLN PARM WP0029 110 Message log num
C P4CNLN PARM WP0030 70 Connection log
C P4INLN PARM WP0031 90 Interchange log
C P4GPLN PARM WP0032 90 Group log numbe
C P4APLN PARM WP0033 90 Application dat
C P4TPC1 PARM WP0034 6 Trading partner
C P4GPC1 PARM WP0035 6 Group code
C P4MSID PARM WP0036 6 Message ID
C P4MSCL PARM WP0037 10 Message class
C P4MSI1 PARM WP0038 6 Message ID
C P4MSC1 PARM WP0039 10 Message class
C P4MSDI PARM WP0040 1 Message directi
C P4FSTM PARM WP0041 1 Function status
C P4ISTM PARM WP0042 1 In process stat
C P4ASTM PARM WP0043 1 Ack status - me
C P4REF1 PARM WP0044 30 Reference # 1
C P4REF2 PARM WP0045 30 Reference # 2
C P4REF3 PARM WP0046 30 Reference # 3
C P4RFD1 PARM WP0047 110 Reference date
C P4RFD2 PARM WP0048 110 Reference date
C P4MSCR PARM WP0049 14 Message control
C P4CTAM PARM WP0050 2 Controlling agn
C P4SCLM PARM WP0051 1 Standard class
C P4IGLM PARM WP0052 1 Industry group
C P4VRLM PARM WP0053 6 V-R Log of mess
C P4IGIM PARM WP0054 6 Industry group
C P4CARF PARM WP0055 35 Common access r
C P4STTF PARM WP0056 1 Transfer status
C P4SQTF PARM WP0057 20 Transfer sequen
C P4WRRS PARM WP0058 90 Start wrapped r
C P4WRCS PARM WP0059 50 Start wrap char
C P4GFIL PARM WP0060 10 Application fil
C P4RCFM PARM WP0061 10 Record format n
C P4RRNM PARM WP0062 90 Relative record
C P4NWRS PARM WP0063 90 Start nonwrappe
C P4NWRE PARM WP0064 90 End nonwrapped
C P4NWAS PARM WP0065 90 Start nonwrap r
C P4NWAE PARM WP0066 90 End nonwrap rec
C P4AREF PARM WP0067 110 Sequence# of as
C P4TJOB PARM WP0068 110 Translation job
*****************************************************************
*
* .
C ICOUNT IFLT 1
* Obtain limiting count for dump
C Z-ADD1 UDDLMT 30 dump limit
C *NAMVAR DEFN EXDMPLMT UDDLMI 30
C IN UDDLMI 91
C N91 Z-ADDUDDLMI UDDLMT dump limit
C MOVE '0' *IN91 error
C END
*
*
* For demonstration purposes, do RPG DUMP up to UDDLMT times:
C ICOUNT IFLT UDDLMT
C ADD 1 ICOUNT 110
C DUMP
C END
*
* User code should set PGM.*Return code to non-blank on fail;
* the suggested usage is message ID of an appropriate error message
* (the return code field is 7 character alpha)
* .
C MOVE *BLANK P0RTN
* .
*================================================================
* Exit program: Direct
*================================================================
C RETRN
*================================================================
*
