midrange.com code scratchpad
Name:
Copy Books for XBGETRJNE http://code.midrange.com/1560fce0dc.html
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
08/10/2012 06:49:22 pm
IP:
Logged
Description:
These are the copy books needed for the Receive Journal Entry for IFS transaction EXIT Program
Place them in a source file and change the /copy commands to refer to your source file
Code:
  1.      ‚*=========================================================================
  2.      ‚* Member.....: CB_STD_CON
  3.      ‚* Description: Standard Copy Block-Standard Constants.
  4.      ‚* By.........: Alan Campin
  5.      ‚* Date.......: 08/18/2005
  6.      ‚*-------------------------------------------------------------------------
  7.      ‚* Member Modification Section:
  8.      ‚*------------------------------
  9.      ‚* By.........:
  10.      ‚* Date.......:
  11.      ‚* Task#......:
  12.      ‚* Description:
  13.      ‚*=========================================================================
  14.      d cYes...
  15.      d                 c                   'Y'
  16.      d cNo...
  17.      d                 c                   'N'
  18.      d cTrue...
  19.      d                 c                   *On
  20.      d cFalse...
  21.      d                 c                   *Off
  22.      d cCarriageReturn...
  23.      d                 c                   x'0D'
  24.      d cLineFeed...
  25.      d                 c                   x'25'
  26.      d cXVMessageFileName...
  27.      d                 c                   Const('XVMSGF    *LIBL     ')
  28.  
  29.       * CR England Standard Message File.
  30.      d cILMessageFileName...
  31.      d                 c                   Const('MSGCTL    *LIBL     ')
  32.  
  33.      d cCPFMessageFileName...
  34.      d                 c                   Const('QCPFMSG   *LIBL     ')
  35.      d cBsearchLessThan...
  36.      d                 c                   Const(-1)
  37.      d cBsearchEqual...
  38.      d                 c                   Const(0)
  39.      d cBsearchGreaterThan...
  40.      d                 c                   Const(1)
  41.       * Sql Values.
  42.      d cSqlStateOk     c                   Const('00000')
  43.      d cSqlStateNoRow  c                   Const('02000')
  44.      d cSqlStateDuplicateKey...
  45.      d                 c                   Const('23505')
  46.      d cSqlStateRecordLocked...
  47.      d                 c                   Const('57033')
  48.      d cSqlStateWarning...
  49.      d                 c                   Const('01')
  50.      d cSqlStateNoData...
  51.      d                 c                   Const('02')
  52.      d cSqlErrLastRow  c                   Const(100)
  53.      d cCloseLabel     c                   Const('Close')
  54.      d cOpenLabel      c                   Const('Open')
  55.      d cFetchLabel     c                   Const('Fetch')
  56.      d cSqlNullIndicator...
  57.      d                 c                   -1
  58.      d cSqlNotNullIndicator...
  59.      d                 c                   0
  60.  
  61.      d cDbTriggerEventInsert...
  62.      d                 c                   Const('1')
  63.      d cDbTriggerEventDelete...
  64.      d                 c                   Const('2')
  65.      d cDbTriggerEventUpdate...
  66.      d                 c                   Const('3')
  67.      d cDbTriggerEventRead...
  68.      d                 c                   Const('4')
  69.  
  70.      d cDbTriggerTimeBefore...
  71.      d                 c                   Const('2')
  72.      d cDbTriggerTimeAfter...
  73.      d                 c                   Const('1')
  74.  
  75.      d cDbTriggerConditionAlways...
  76.      d                 c                   Const('1')
  77.      d cDbTriggerConditionChange...
  78.      d                 c                   Const('2')
  79.  
  80.      d cDbTriggerStateEnabled...
  81.      d                 c                   Const('E')
  82.      d cDbTriggerStateDisabled...
  83.      d                 c                   Const('D')
  84.  
  85.      d cDbTriggerOperativeOperative...
  86.      d                 c                   Const('O')
  87.      d cDbTriggerOperativeInOperative...
  88.      d                 c                   Const('I')
  89.  
  90.      d cDbTriggerUpdateConditionAlways...
  91.      d                 c                   Const('1')
  92.      d cDbTriggerUpdateConditionChange...
  93.      d                 c                   Const('2')
  94.  
  95.      d cDbTriggerAllowRepeatedUpdateNo...
  96.      d                 c                   Const(x'00')
  97.      d cDbTriggerAllowRepeatedUpdateYes...
  98.      d                 c                   Const(x'01')
  99.  
  100.      d cDbTriggerNullYes...
  101.      d                 c                   Const('1')
  102.      d cDbTriggerNullNo...
  103.      d                 c                   Const('0')
  104.  
  105.      d cDbTriggerCommitLevelNone...
  106.      d                 c                   Const('0')
  107.      d cDbTriggerCommitLevelChg...
  108.      d                 c                   Const('1')
  109.      d cDbTriggerCommitLevelCs...
  110.      d                 c                   Const('2')
  111.      d cDbTriggerCommitLevelAll...
  112.      d                 c                   Const('3')
  113.  
  114.      d cUserSpaceMaximumOptimize...
  115.      d                 c                   16773120
  116.      d cUserSpaceMaximumNoOptimize...
  117.      d                 c                   16776704 
  118.       ‚*=========================================================================
  119.      ‚* Member.....: CB_STDTYPE
  120.      ‚* Description: Standard Copy Block-Standard Types.
  121.      ‚* By.........: Alan Campin
  122.      ‚* Date.......: 08/18/2005
  123.      ‚*-------------------------------------------------------------------------
  124.      ‚* Member Modification Section:
  125.      ‚*------------------------------
  126.      ‚* By.........:
  127.      ‚* Date.......:
  128.      ‚* Task#......:
  129.      ‚* Description:
  130.      ‚*=========================================================================
  131.      d                 ds                  Based(StdNulPtr)
  132.      d   StdChr                       1a
  133.      d   StdCndTok                   12a
  134.      d   StdDat                        d
  135.      d   StdIdx                       5i 0
  136.      d   StdInt                      10i 0
  137.      d   StdIntSml                    5i 0
  138.      d   StdIntUns                   10u 0
  139.      d   StdIntSmlUns                 5u 0
  140.      d   StdIntBig                   20i 0
  141.      d   StdIntBigUns                20u 0
  142.      d   StdLgl                        n
  143.      d   StdPrcPtr                     *   ProcPtr
  144.      d   StdQNam                     20a
  145.      d   StdMsgId                     7a
  146.      d   StdMsgKey                    4a
  147.      d   StdStr                     256a
  148.      d   StdTim                        t
  149.      d   StdTms                        z
  150.      d   StdNam                      10a
  151.      d   StdNamVary...
  152.      d                               10a   Varying
  153.      d   StdPtr                        *
  154.      d   StdTxt                      50a
  155.      d   StdScnRRN                    5p 0
  156.      d   StdJobNum                    6a
  157.      d   StdNullInd...
  158.      d                                5i 0
  159.      d   StdSQLState...
  160.      d                                5a
  161.      d   StdSQLFuncName...
  162.      d                              517a   Varying
  163.      d   StdSQLSpecName...
  164.      d                              128a   Varying
  165.      d   StdSQLMsgText...
  166.      d                               70a   Varying
  167.      d   StdActMark...
  168.      d                                     Like(StdInt)
  169.  
  170.      d SqlErrText      s             50a   Based(StdNulPtr)
  171.      d SqlMsg          s             52a   Based(StdNulPtr)
  172.  
  173.      d TD_QualifiedName...
  174.      d                 ds                  Qualified
  175.      d                                     Based(StdNulPtr)
  176.      d  Name...
  177.      d                                     Like(StdNam)
  178.      d  Library...
  179.      d                                     Like(StdNam) 
© 2004-2019 by midrange.com generated in 0.009s valid xhtml & css