/* begin_generated_IBM_copyright_prolog */ /* This is an automatically generated copyright prolog. */ /* After initializing, DO NOT MODIFY OR MOVE */ /* ----------------------------------------------------------------- */ /* */ /* Product(s): */ /* 5733-OAR */ /* */ /* (C)Copyright IBM Corp. 2010, 2010 */ /* */ /* All rights reserved. */ /* US Government Users Restricted Rights - */ /* Use, duplication or disclosure restricted */ /* by GSA ADP Schedule Contract with IBM Corp. */ /* */ /* Licensed Materials-Property of IBM */ /* */ /* --------------------------------------------------------------- */ /* */ /* end_generated_IBM_copyright_prolog */ /*** START HEADER FILE SPECIFICATIONS *********************** */ /* */ /*Header File Name: QRNOPENACC */ /* */ /*Descriptive Name: API error numbers. */ /* */ /*Change Activity: */ /* */ /*CFD List: */ /* */ /*FLAG REASON LEVEL DATE PGMR CHANGE DESCRIPTION */ /*---- ------------ ----- ------ --------- ---------------------- */ /*$A0= 090830 BLM New Include */ /* */ /*End CFD List. */ /* */ /*Additional notes about the Change Activity */ /*End Change Activity. */ /*** END HEADER FILE SPECIFICATIONS ****************************** */   /IF DEFINED(QrnOpenAccess_Included) /EOF /ENDIF /DEFINE QrnOpenAccess_Included |
  /* Format of QrnOpenAccess struct */ D ROIO0100 C 'ROIO0100'   D QrnDevice_Database... D C 'D' D QrnDevice_Printer... D C 'P' D QrnDevice_UserInterface... D C 'U'   D QrnOperation_OPEN... D C 1 D QrnOperation_POSITION_START... D C 2 D QrnOperation_POSITION_END... D C 3 D QrnOperation_READ... D C 4 D QrnOperation_READC... D C 5 D QrnOperation_READE... D C 6 D QrnOperation_READP... D C 7 D QrnOperation_READPE... D C 8 D QrnOperation_CHAIN... D C 9 D QrnOperation_EXFMT... D C 10 D QrnOperation_SETGT... D C 11 D QrnOperation_SETLL... D C 12 D QrnOperation_UNLOCK... D C 13 D QrnOperation_UPDATE... D C 14 D QrnOperation_WRITE... D C 15 D QrnOperation_DELETE... D C 16 D QrnOperation_FEOD... |
D C 17 D QrnOperation_CLOSE... D C 18 D QrnOperation_DELETE_CURRENT... D C 19 D QrnOperation_READE_CURRENT... D C 20 D QrnOperation_READPE_CURRENT... D C 21   D QrnFunctionKey_None... D C 0 D QrnFunctionKey_01... D C 1 D QrnFunctionKey_02... D C 2 D QrnFunctionKey_03... D C 3 D QrnFunctionKey_04... D C 4 D QrnFunctionKey_05... D C 5 D QrnFunctionKey_06... D C 6 D QrnFunctionKey_07... D C 7 D QrnFunctionKey_08... D C 8 D QrnFunctionKey_09... D C 9 D QrnFunctionKey_10... D C 10 D QrnFunctionKey_11... D C 11 D QrnFunctionKey_12... D C 12 D QrnFunctionKey_13... D C 13 D QrnFunctionKey_14... D C 14 D QrnFunctionKey_15... D C 15 D QrnFunctionKey_16... D C 16 |
D QrnFunctionKey_17... D C 17 D QrnFunctionKey_18... D C 18 D QrnFunctionKey_19... D C 19 D QrnFunctionKey_20... D C 20 D QrnFunctionKey_21... D C 21 D QrnFunctionKey_22... D C 22 D QrnFunctionKey_23... D C 23 D QrnFunctionKey_24... D C 24 D QrnFunctionKey_PRINT... D C 121 D QrnFunctionKey_ROLLUP... D C 122 D QrnFunctionKey_ROLLDOWN... D C 123 D QrnFunctionKey_CLEAR... D C 124 D QrnFunctionKey_HELP... D C 125 D QrnFunctionKey_HOME... D C 126   D QrnDatatype_Alpha... D C 1 D QrnDatatype_AlphaVarying... D C 2 D QrnDatatype_Unicode... D C 3 D QrnDatatype_UnicodeVarying... D C 4 D QrnDatatype_Dbcs... D C 5 D QrnDatatype_DbcsVarying... D C 6 D QrnDatatype_Indicator... D C 7 D QrnDatatype_Decimal... |
D C 8 D QrnDatatype_Integer... D C 9 D QrnDatatype_Unsigned... D C 10 D QrnDatatype_Float... D C 11 D QrnDatatype_Date... D C 12 D QrnDatatype_Time... D C 13 D QrnDatatype_Timestamp... D C 14   D QrnDtzFormat_ISO... D C 1 D QrnDtzFormat_USA... D C 2 D QrnDtzFormat_EUR... D C 3 D QrnDtzFormat_JIS... D C 4 D QrnDtzFormat_YMD... D C 5 D QrnDtzFormat_MDY... D C 6 D QrnDtzFormat_DMY... D C 7 D QrnDtzFormat_JUL... D C 8 D QrnDtzFormat_HMS... D C 9   D QrnPrtctl_T... D DS QUALIFIED TEMPLATE D spaceBefore 3S 0 D spaceAfter 3S 0 D skipBefore 3S 0 D skipAfter 3S 0 D currLine 3S 0   D QrnRecordLevel_T... D DS QUALIFIED TEMPLATE D record 10A |
D level 13A   D QrnRecordLevels_T... D DS QUALIFIED TEMPLATE ALIGN D num 10I 0 D levels LIKEDS(QrnRecordLevel_T) D DIM(32767)   D QrnObject_T... D DS QUALIFIED TEMPLATE D name 10A D library 10A   D QrnNameValue_T... D DS QUALIFIED TEMPLATE /* I Name from external file */ D externalName... D 10A /* I Data type of field */ /* See QrnDatatype_* */ D dataType... D 3U 0 /* I Defined length of numeric */ /* - Decimal: total digits */ /* - Integer: bytes */ /* - Unsigned: bytes */ /* - Float: bytes */ /* Numeric fields only */ D numericDefinedLen... D 3U 0 /* I Decimal places of field */ /* Decimal fields only */ D decimals... D 3U 0 /* I Date/time/timestamp format */ /* Date, time, timestamp only */ D dtzFormat... D 3U 0 /* I Date, time separator */ /* Date, time only */ D dtSeparator... D 1A /* I Input field (field is */ /* set by handler) */ |
D input... D N /* I Output field (field is */ /* used by handler) */ D output... D N /* I Is the field null capable */ D isNullCapable... D N /* I/O Does it have a null value */ D hasNullValue... D N /* Hex zeros */ D reserved1... D 13A /* I/O Length of value in bytes */ D valueLenBytes... D 10U 0 /* I Maximum length in bytes */ D valueMaxLenBytes... D 10U 0 /* I CCSID of the value */ D valueCcsid... D 10I 0 /* Zero */ D reserved2... D 10U 0 /* I/O The value of the field, in */ /* human-readable form */ D value... D * /* NULL */ D reserved3... D *   D QrnNamesValues_T... D DS QUALIFIED TEMPLATE ALIGN D num 10I 0 D field LIKEDS(QrnNameValue_T) D DIM(32767)   D QrnOpenAccess_T... D DS TEMPLATE QUALIFIED ALIGN /* I Length of this structure */ |
D length... D 10U 0 /* Zero */ D reserved1... D 10U 0 /* I Format of this structure */ /* ROACnnnn */ D parameterFormat... D 8A /* I/O User area owned by the */ /* RPG program */ D userArea... D * /* I/O State info owned by */ /* the handler */ D stateInfo... D * /* I Record format level */ /* indicators. */ /* - NULL if file is program */ /* described */ D recordLevels... D * /* O Input buffer */ /* NULL if not used by opcode */ /* - Length is given by */ /* inputBufferLen */ D inputBuffer... D * /* O Input null byte map */ /* - Length is given by */ /* inputNullMapLen */ D inputNullMap... D * /* I Output buffer */ /* NULL if not used by opcode */ /* - Length is given by */ /* outputBufferLen */ D outputBuffer... D * /* I Output null byte map */ /* - Length is given by */ /* outputNullMapLen */ D outputNullMap... |
D * /* I/O Alternate version of */ /* I/O buffer information */ D namesValues... D * /* I Key */ /* NULL if not used by opcode */ /* - Length is given by */ /* keyLen */ D key... D * /* I Key null byte map */ /* - Length is given by */ /* keyNullMapLen */ D keyNullMap... D * /* I Alternate version of */ /* key information */ D keynamesValues... D * /* I/O Indicator array, dim99 */ /* NULL if not used by file */ /* or if using names-values */ D indara... D * /* I Print control */ D prtctl... D * /* O The handler can set */ /* this pointer. */ /* - Length is specified in */ /* openFeedbackLen */ D openFeedback... D * /* O The handler can set */ /* this pointer. */ /* - Length is specified in */ /* ioFeedbackLen */ D ioFeedback... D * /* O The handler can set */ /* this pointer. */ /* - Length is specified in */ /* deviceFeedbackLen */ |
D deviceFeedback... D * /* I NULL */ D reserved2... D * /* I NULL */ D reserved3... D * /* I NULL */ D reserved4... D * /* I External file */ D externalFile... D LIKEDS(QrnObject_T) /* I External member */ D externalMember... D 10A /* I File used at compile time */ D compileFile... D LIKEDS(QrnObject_T) /* I/O Record name */ D recordName... D 10A /* Hex zeros */ D reserved5... D 20A /* I RPG operation */ /* See QrnOperation_* */ D rpgOperation... D 10U 0 /* O RPG status code */ D rpgStatus... D 10I 0 /* I Length of inputBuffer */ D inputBufferLen... D 10U 0 /* I Length of inputNullMap */ D inputNullMapLen... D 10U 0 /* I Length of outputBuffer */ D outputBufferLen... D 10U 0 /* I Length of outputNullMap */ D outputNullMapLen... |
D 10U 0 /* I Length of key */ D keyLen... D 10U 0 /* I Length of keyNullMap */ D keyNullMapLen... D 10U 0 /* O Length of input data */ D inputDataLen... D 10U 0 /* O Length of openFeedback */ D openFeedbackLen... D 10U 0 /* O Length of ioFeedback */ D ioFeedbackLen... D 10U 0 /* O Length of deviceFeedback */ D deviceFeedbackLen... D 10U 0 /* I Number of key fields */ /* N/A for program-desc file */ D numKeys... D 10U 0 /* I/O RRN */ D rrn... D 10U 0 /* I Printer form length */ /* Only meaningful for */ /* program described file */ /* with device Printer */ D formLen... D 10U 0 /* I Printer form overflow */ /* Only meaningful for */ /* program described PRINTER */ D formOfl... D 10U 0 /* Zero */ D reserved6... D 10U 0 /* Zero */ D reserved7... D 10U 0 /* Zero */ |
D reserved8... D 10U 0 /* Zero */ D reserved9... D 10U 0 /* O F1-F24, PRINT,ROLLUP etc */ /* See QrnFunctionKey_* */ /* - Unknown values cause an */ /* RPG exception */ D functionKey... D 3U 0 /* I Externally described file */ D externallyDescribed... D 1N /* I RPG keyed access? */ D keyedFile... D 1N /* I BLOCK(*YES)? */ D blocked... D 1N /* O EOF */ D eof... D 1N /* O Record found */ D found... D 1N /* O Key is equal */ D equal... D 1N /* O Page overflow reached */ D printerOverflow... D 1N /* I Input operation with lock */ D inputWithLock... D 1N /* I/O Whether the I/O operations */ /* will use the name-value */ /* info rather than the */ /* I/O buffers */ /* Set by handler during OPEN */ /* operation, used by handler */ /* and RPG for I/O operations */ D usenamesValues... D 1N |
/* I Whether the record is */ /* defined as a subfile to RPG*/ D isSubfile... D 1N /* '0' */ D reservedInds... D 1N DIM(5) /* I See QrnDevice_* */ D rpgDevice... D 1A /* Hex zeros */ D reserved10... D 31A |