| midrange.com code scratchpad |
|
Name:
reThrow
|
Scriptlanguage:
Plain Text
|
Tabwidth:
0
|
Date:
10/21/2009 11:32:41 am
|
IP:
Logged
|
|
|
Description:
send escape message furher up in the call stack
|
|
Code:
- p reThrow b export
- d pi
-
- d moveProgramMsg...
- d pr extPgm('QMHMOVPM')
- d msgKey 4a const
- d msgTypes 10a const dim(4) options(*varsize)
- d numMsgTypes 10i 0 const
- d toStack 10a const
- d toStackCounter 10i 0 const
- d errorCode 256a options(*varsize)
-
- d resendEscapeMsg...
- d pr extPgm('QMHRSNEM')
- d msgKey 4a const
- d errorCode 256a options(*varsize)
- d toCallStackEntry...
- d 4000a const options(*varsize:*nopass)
- d toCallStackEntryLen...
- d 10i 0 const options(*nopass)
- d toCallStackEntryFmt...
- d 8a const options(*nopass)
- d fromCallStackEntryAddress...
- d * const options(*nopass)
- d fromCallStackCounter...
- d 10i 0 const options(*nopass)
-
- d errorNull ds qualified
- d bytesProv 10i 0 inz(0)
- d bytesAvail 10i 0 inz(0)
-
- dformat_RSNM0100 ds qualified
- d toCallStackCounter...
- d 10i 0 inz(2)
- d toCallStackEntryQual...
- d 20a inz('*NONE *NONE ')
- d callStackEntryIdentifierLen...
- d 10i 0 inz(1)
- d callStackEntryIdentifier...
- d 10a inz('*')
- /free
-
- //moveProgramMsg('':'*ESCAPE *DIAG':2:'*PGMBDY':2:ErrorNull);
- moveProgramMsg('':'*ESCAPE *DIAG':2:'*':2:ErrorNull);
-
- resendEscapeMsg( ''
- : errorNull
- : format_RSNM0100
- : %len(format_RSNM0100)
- : 'RSNM0100'
- : *null
- : 1
- );
-
- /end-free
- p e
|
|
|
|