Code:
- XXCVT.H - Copybook
- /* */
- /* Out: 10/31/05 14:40 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN110502 ANI Inventory/CAS/Care Query Port to Provisioning Sys */
- /* DJC: Initial Copybook Creation */
-
-
- /*=============================================================================================
- /* C Library Functions from C include file XXCVT.H
- /*=============================================================================================
-
- D QxxDtoP PR ExtProc('QXXDTOP') Double to Packed
- D * Value Packed Variable
- D 10I 0 Value Scale
- D 10I 0 Value Precision
- D 8F Value Double Value
-
- D QxxDtoZ PR ExtProc('QXXDTOZ') Double to Zoned
- D * Value Zoned Variable
- D 10I 0 Value Scale
- D 10I 0 Value Precision
- D 8F Value Double Value
-
- D QxxItoP PR ExtProc('QXXITOP') Int to Packed
- D * Value Packed Variable
- D 10I 0 Value Scale
- D 10I 0 Value Precision
- D 10I 0 Value Int Value
-
- D QxxItoZ PR ExtProc('QXXITOZ') Int to Zoned
- D * Value Zoned Variable
- D 10I 0 Value Scale
- D 10I 0 Value Precision
- D 10I 0 Value Int Value
-
- D QxxPtoI PR 10I 0 ExtProc('QXXPTOI') Packed to Int
- D * Value Packed Variable
- D 10I 0 Value Scale
- D 10I 0 Value Precision
-
- D QxxPtoD PR 8F ExtProc('QXXPTOD') Packed to Double
- D * Value Packed Variable
- D 10I 0 Value Scale
- D 10I 0 Value Precision
-
- D QxxZtoD PR 8F ExtProc('QXXZTOD') Zoned to Double
- D * Value Zoned Value
- D 10I 0 Value Scale
- D 10I 0 Value Precision
-
- D QxxZtoI PR 10I 0 ExtProc('QXXZTOI') Zoned to Int
- D * Value Zoned Value
- D 10I 0 Value Scale
- D 10I 0 Value Precision
-
-
- STRING.H - Copybook
- /* */
- /* Out: 8/22/07 10:55 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN080701 ANI Inventory/XML Parser Refactoring */
- /* DJC: Added multiple include protection */
- /* */
- /* Out: 3/23/07 9:13 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN020701 ANI Inventory/Complex Product Attachment to Orders */
- /* DJC: Added Options(*STRING) */
- /* */
- /* Out: 8/18/06 13:23 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN080604 ANI Inventory/ANI API Log Changes */
- /* DJC: Memmove prototype was incorrect */
- /* */
- /* Out: 2/01/06 11:23 Ver: 0. 0 Level10 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN040601 ANI Inventory/MSAG Update Process Redesign */
- /* DJC: Added Options(*STRING) to approprate prototypes */
- /* */
- /* Out: 10/31/05 14:02 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN110502 ANI Inventory/CAS/Care Query Port to Provisioning Sys */
- /* DJC: Added Additional prototypes */
- /* */
- /* */
- /* Out: 6/17/04 14:57 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN090402 ANI Inventory/ANI API Redesign (Code) */
- /* DJC: Initial copy book creation */
- /* */
-
- /If Defined(STRING_H)
- /Eof
- /EndIf
-
- /Define STRING_H
-
- /*=============================================================================================
- /* C Library Functions from C include file STRING.H
- /*=============================================================================================
-
- D strcoll PR 10I 0 ExtProc('strcoll') Compair Strings
- D * Value Options(*STRING) String 1
- D * Value Options(*STRING) String 2
-
- D strcspn PR 10U 0 ExtProc('strcspn') Find Offset to Char
- D * Value Options(*STRING) String
- D * Value Options(*STRING) Compairator String
-
- D strerror PR * ExtProc('strerror') Error No String
- D 10I 0 Value ErrNo Value
-
- D strpbrk PR * ExtProc('strpbrk') Find Char in String
- D * Value Options(*STRING) String
- D * Value Options(*STRING) Compairator String
-
- D strrchr PR * ExtProc('strrchr') Find last Char
- D * Value Options(*STRING) String
- D 10I 0 Value Compairator Char
-
- D strspn PR 10U 0 ExtProc('strspn') Find Non-Matching
- D * Value Options(*STRING) String
- D * Value Options(*STRING) Compairator String
-
- D strstr PR * ExtProc('strstr') String Compare
- D * Value Options(*STRING) Comparator
- D * Value Options(*STRING) Find String
-
- /* char *strtok ( char *, const char * );
- /* char *strtok_r ( char *, const char *, char ** );
- /* u-int strxfrm ( char *, const char *, u-int );
-
- D memchr PR * ExtProc('_MEMCHR') Find char in memory
- D * Value Buffer
- D 10I 0 Value Char (Hex Value)
- D 10U 0 Value Butes to Search
-
- D memcmp PR 10I 0 ExtProc('__memcmp') Memory Compare
- D * Value Compare To Memory
- D * Value Compare From Memory
- D 10U 0 Value Length to Compare
-
- D memcpy PR 10I 0 ExtProc('__memcpy') Memory Copy
- D * Value To Memory
- D * Value From Memory
- D 10U 0 Value Length to Copy
-
- D memmove PR * ExtProc('_MEMMOVE') Memory Move
- D * Value To Memory
- D * Value From Memory
- D 10U 0 Value Length to Move
-
- D memset PR 10I 0 ExtProc('__memset') Memory Set
- D * Value Memory Address
- D 10I 0 Value Set to Value
- D 10U 0 Value Length to Set
-
- D strcat PR * ExtProc('__strcat') String Concatinati
- D * Value Options(*STRING)
- D * Value Options(*STRING)
-
- D strchr PR * extProc('strchr') Find Substring
- D * Value Options(*STRING) String
- D 10I 0 Value Search Character
-
- /* int __strcmp ( const char *, const char * );
- /* char *__strcpy ( char *, const char * );
-
- D strlen PR 10U 0 ExtProc('__strlen') String Length
- D * Value Options(*STRING)
-
- /* int strncmp ( const char *, const char *, u-int );
-
- D strncpy PR * ExtProc('strncpy') String Concatinati
- D * Value Options(*STRING)
- D * Value Options(*STRING)
- D 10I 0 Value
-
- /* char *__strncat ( char *, const char *, u-int );
-
- STDLIB.H - Copybook
- /* */
- /* Out: 1/31/07 12:58 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN020701 ANI Inventory/Complex Product Attachment to Orders */
- /* DJC: Fixed QSort Prototype */
- /* */
- /* Out: 2/02/06 9:41 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN040601 ANI Inventory/MSAG Update Process Redesign */
- /* DJC: Initial copy book creation */
- /* */
-
- /If Defined(STDLIB_H)
- /Eof
-
- /Else
- /Define STDLIB_H
- /EndIf
-
-
- /If Defined(IFS64_IO__)
- /Define LARGE_FILES
- /Define LARGE_FILE_API
- /EndIf
-
- /*=============================================================================================
- /* Notes
- /*=============================================================================================
-
-
- /*=============================================================================================
- /* C Library Data specifications from C include file STDLIB.H
- /*=============================================================================================
-
- D div_t_Template...
- D DS Based(templateBase)
- D Qualified
- D quot 10I 0
- D rem 10I 0
-
- D ldiv_t_Template...
- D DS Based(templateBase)
- D Qualified
- D quot 20I 0
- D rem 20I 0
-
- D Lldiv_t_Template...
- D DS Based(templateBase)
- D Qualified
- D quot 20I 0
- D rem 20I 0
-
- /*=============================================================================================
- /* C Library Constants from C include file STDLIB.H
- /*=============================================================================================
-
- D EXIT_FAILUER C 8
- D EXIT_SUCCESS C 0
-
- D RAND_MAX C 32767
-
- D MB_CUR_MAX C 4
-
- /*=============================================================================================
- /* C Library Functions from C include file STDLIB.H
- /*=============================================================================================
-
- D atof PR 4F ExtProc('atof')
- D * Value Options(*STRING) Floating Pt String
-
- D atoi PR 10I 0 ExtProc('atoi')
- D * Value Options(*STRING) Integer String
-
- D atol PR 20I 0 ExtProc('atol')
- D * Value Options(*STRING) Long Int String
-
- D strtod PR 8F ExtProc('strtod')
- D * Value Options(*STRING) Double String
- D * Options(*NOPASS) End of Parsing
-
- D strtol PR 20I 0 ExtProc('strtol')
- D * Value Options(*STRING) Long Int String
- D * Options(*NOPASS) End of Parsing
- D 10I 0 Value Options(*NOPASS) Str Numeric Base
-
- D strtoul PR 20U 0 ExtProc('strtoul')
- D * Value Options(*STRING) Usgn Long Int String
- D * Options(*NOPASS) End of Parsing
- D 10I 0 Value Options(*NOPASS) Str Numeric Base
-
- D bsearch PR * ExtProc('bsearch')
- D * Value Search Key
- D * Value Array Base
- D 10I 0 Value # of Elements
- D 10I 0 Value Size of Elements
- D * Value ProcPtr Evaluation Procedure
-
- D qsort PR * ExtProc('qsort')
- D * Value Array Base
- D 10U 0 Value # of Elements
- D 10U 0 Value Size of Elements
- D * Value ProcPtr Evaluation Procedure
-
- /* bsearch and qsort expect a procedure pointer to an evaluation procedure.
- /* the prototype required for this procedure is below.
- /* The procedure returns these values
- /* -1 when the Key Element is less than the Comparitor Element
- /* 0 when the Key Element equals the Comparitor Element
- /* 1 when the Key Element is greater than the Comparitor Element
- D evaluationProcedure...
- D PR 10I 0
- D * Value Key Element
- D * Value Comparitor Element
-
- D rand PR 10I 0 ExtProc('rand')
-
- D rand_r PR 10I 0 ExtProc('rand_r')
- D * Value Usgn Int Seed Value
-
- D srand PR ExtProc('srand')
- D 10U 0 Value Ussn Int Seed Value
-
- D calloc PR * ExtProc('calloc')
- D 10U 0 Value Elements
- D 10U 0 Value Size of Elements
-
- D free PR ExtProc('free')
- D * Value Storage to Free
-
- D malloc PR * ExtProc('malloc')
- D 10U 0 Value Elements
-
- D realloc PR * ExtProc('realloc')
- D * Value Orig Allocated Stg
- D 10U 0 Value New Allocated Size
-
- D C_TS_calloc PR * ExtProc('_C_TS_calloc')
- D 10U 0 Value Elements
- D 10U 0 Value Size of Elements
-
- D C_TS_free PR ExtProc('_C_TS_free')
- D * Value Storage to Free
-
- D C_TS_malloc PR * ExtProc('_C_TS_malloc')
- D 10U 0 Value Elements
-
- D C_TS_realloc PR * ExtProc('_C_TS_realloc')
- D * Value Orig Allocated Stg
- D 10U 0 Value New Allocated Size
-
- D abort PR ExtProc('abort')
-
- D atexit PR 10I 0 ExtProc('atexit')
- D * Value ProcPtr Proc Exit Proc
-
- D exit PR ExtProc('exit')
- D 10I 0 Value Exit Status
-
- D getenv PR * ExtProc('getenv')
- D * Value Options(*STRING) Environment Var Name
-
- D putenv PR 10I 0 ExtProc('putenv')
- D * Value Options(*STRING) Env Var Name = Value
-
- D system PR 10I 0 ExtProc('system')
- D * Value Options(*STRING) Sys Command String
-
- D abs PR 10I 0 ExtProc('__abs')
- D 10I 0 Value Numeric Value
-
- D labs PR 10I 0 ExtProc('labs')
- D 10I 0 Value Numeric Value
-
- D mblen PR 10I 0 ExtProc('mblen')
- D * Value Options(*STRING) Multi Byte String
- D 10U 0 Value Bytes to Examine
-
- D mbtowc PR 10I 0 ExtProc('mbtow')
- D * Value Wide Char String
- D * Value Options(*STRING) String to Convert
- D * Value Ptr to State Int
-
- D wctomb PR 10I 0 ExtProc('wctomb')
- D * Value Options(*STRING) MB Char String
- D * Value Options(*STRING) Wide Char String
-
- D mbstowcs PR 10U 0 ExtProc('mbstowcs')
- D * Value Options(*STRING) Wide Char String
- D * Value Options(*STRING) MB Char String
- D 10U 0 Value Bytes to Convert
-
- D wctombs PR 10U 0 ExtProc('wctombs')
- D * Value Options(*STRING) MB Char String
- D * Value Options(*STRING) Wide Char String
- D 10U 0 Value Bytes to Convert
-
- D C_TS_malloc64...
- D PR * ExtProc('_C_TS_malloc64')
- D 10U 0 Value Bytes to Allocate
-
- D atoll PR 10I 0 ExtProc('atoll')
- D * Value Options(*STRING) Integer String
-
- D strtoll PR 20I 0 ExtProc('strtoll')
- D * Value Options(*STRING) Long Int String
- D * Options(*NOPASS) End of Parsing
- D 10I 0 Value Options(*NOPASS) Str Numeric Base
-
- D strtoull PR 20I 0 ExtProc('strtoull')
- D * Value Options(*STRING) Unsg Long Int String
- D * Options(*NOPASS) End of Parsing
- D 10I 0 Value Options(*NOPASS) Str Numeric Base
-
- D llabs PR 20I 0 ExtProc('llabs')
- D 20I 0 Value Numeric Value
-
- D ldiv PR * ExtProc('ldiv')
- D 10I 0 Value Numerator
- D 10I 0 Value Denominator
-
- D lldiv PR * ExtProc('lldiv')
- D 20I 0 Value Numerator
- D 20I 0 Value Denominator
-
- /*=============================================================================================
-
- MI_CPYBYTE - Copybook
- /* */
- /* Out: 9/28/04 14:07 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN090402 ANI Inventory/ANI API Redesign (Code) */
- /* DJC: Initial copy book creation */
- /* */
-
- /*=============================================================================================
- /* MI CPYBYTES Instruction from MI include file CPYBYTES.MIH
- /*=============================================================================================
-
- D CPYBYTES PR ExtProc('_CPYBYTES') Copy Bytes
- D * Value To Memory
- D * Value From Memory
- D 10U 0 Value Length to Copy
-
-
- /* */
- /* Out: 3/24/00 8:27 Ver: 0. 0 Level20 Duane J. Christen */
- /* Ref: DJC 0010 Duane Christen - Small scope projects/OT01 Performanc */
- /* DJC: INITIAL COPYBOOK CREATION */
- /IF DEFINED(DQUSEC) |
- /EOF |
- /ENDIF |
- * |
- /DEFINE DQUSEC |
- * |
- *=========================================================================|
- * API ERROR DATA STRUCTURE |
- *=========================================================================|
- * |
- * AUTHOR: DUANE J. CHRISTEN |
- * CREATION DATE: DECEMBER 23, 1999 |
- * |
- *! FOR A DESCRIPTION ON HOW TO USE THIS COPYBOOK SEE: |
- *! |
- * |
- *{ THIS HEADER IS DERIVED FROM QSYSINC/QRPGLESRC,QUSEC |
- * |
- *{ THE COPYBOOK "QRPGCBSRC,ZQUSEC" NEEDS TO BE INCLUDED IN YOUR SOURCE |
- *{ IN THE *INZSR SUBROUTINE. |
- * |
- *=========================================================================|
- * |
- D USEC_BASE... | BASE PTR RCVPM1
- D S * INZ(*NULL) | BASE PTR RCVPM1
- D USEC_STG... | USEC STORAGE
- D S 9B 0 INZ(0) | USEC STORAGE
- D USEC_AVAIL_STATIC... | AVAIL BYTES IN
- D S 9B 0 INZ(%SIZE(USEC)) | STATIC PORTION
- D USEC_DATA_LENGTH... | DATA LENGTH TO
- D S 9B 0 INZ(100) | ALLOCATE
- D USEC_DATA_BASE... | DATA BASE
- D S * INZ(*NULL) |
- D USEC_DATA... | MESSAGE DATA
- D S 32767A BASED(USEC_DATA_BASE) |
- * |
- *-------------------------------------------------------------------------|
- * STATIC PORTION |
- *-------------------------------------------------------------------------|
- * |
- D USEC DS BASED(USEC_BASE) |
- D USEC_PROVIDED... | BYTES PROVIDED
- D 9B 0 |
- D USEC_AVAILABLE... | BYTES AVAILABLE
- D 9B 0 |
- D USEC_MSG_ID 7A | MESSAGE ID
- D 1A |
- *=========================================================================|
-
- DQMHSNDPM - Copybook
- /* */
- /* Out: 11/17/03 9:55 Ver: 0. 0 Level40 Duane J. Christen */
- /* Ref: ANIN080301 ANI Inventory/Phase II E800 */
- /* DJC: Add Maximum storage for message Data Element */
- /* */
- /* Out: 3/24/00 8:21 Ver: 0. 0 Level20 Duane J. Christen */
- /* Ref: DJC 0010 Duane Christen - Small scope projects/OT01 Performanc */
- /* DJC: INITIAL COPYBOOK CREATION */
- *=========================================================================
- /IF DEFINED(DQMHSNDPM)
- /EOF
- /ENDIF
- *
- /DEFINE DQMHSNDPM
- *
- *=========================================================================
- * QMHSNDPM - SEND PROGRAM MESSAGE FROM QSYSINC/QRPGLESRC,QMHSNDPM
- *=========================================================================
- *
- * AUTHOR: DUANE J. CHRISTEN
- * CREATION DATE: DECEMBER 29, 1999
- *
- *
- *! FOR A DESCRIPTION ON HOW TO USE THIS COPYBOOK SEE:
- *!
- *
- *{ THIS HEADER IS DERIVED FROM QSYSINC/QRPGLESRC,QMHSNDPM
- *
- *=========================================================================
- * PROCEDURE PROTOTYPES
- *=========================================================================
- *
- *-------------------------------------------------------------------------
- * STANDARD PARAMETER GROUP
- *-------------------------------------------------------------------------
- *
- D QMHSNDPM PR EXTPGM('QMHSNDPM')
- D 7A MESSAGE ID
- D 20A QUAL MESSAGE FILE
- D 32767A OPTIONS(*VARSIZE) DATA
- D 9B 0 LENGTH OF DATA
- D 10A MESSAGE TYPE
- D 32767A OPTIONS(*VARSIZE) CALL STACK ENTRY
- D 9B 0 CALL STACK COUNTE
- D 4A MESSAGE KEY
- D 32767A OPTIONS(*VARSIZE) ERROR CODE
- *
- /IF DEFINED(QMHSNDPM_OPG1)
- *-------------------------------------------------------------------------
- * OPTIONAL PARAMETER GROUP 1
- *-------------------------------------------------------------------------
- *
- D 9B 0 LENGTH OF CALL
- D STACK ENTRY
- D 20A CALL STACK ENGRY
- D QUALIFICATION
- D 9B 0 DISPLAY PROGRAM
- D MESSAGE SCREEN
- D WAIT TIME
- /ENDIF
- *
- /IF DEFINED(QMHSNDPM_OPG2)
- *-------------------------------------------------------------------------
- * OPTIONAL PARAMETER GROUP 2
- *-------------------------------------------------------------------------
- *
- D 10A CALL STACK ENTRY
- D DATA TYPE
- D 9B 0 CODED CHARACTER
- D SET IDENTIFIER
- /ENDIF
- *
- *=========================================================================
- * DATA DEFINITIONS
- *=========================================================================
- *
- D SNDPM_DTA_STG...
- D S 9B 0 INZ(0)
- D SNDPM_DTA_BASE...
- D S * INZ(*NULL)
- D SNDPM_C_STG...
- D S 9B 0 INZ(10)
- D SNDPM_C_BASE...
- D S * INZ(*NULL)
- *
- *-------------------------------------------------------------------------
- * STANDARD PARAMETERS
- *-------------------------------------------------------------------------
- *
- D SNDPM_MSG_ID...
- D S 7A
- D SNDPM_QUAL_MSGF...
- D DS 20
- D SNDPM_MSGF_FILE...
- D 10A INZ('QUSERMSG')
- D SNDPM_MSGF_LIB...
- D 10A INZ('*LIBL')
- D SNDPM_DATA...
- D S 32767A BASED(SNDPM_DTA_BASE)
- D SNDPM_DATA_LENGTH...
- D S 9B 0 INZ(100)
- D SNDPM_MAX_DATA_LENGTH...
- D S 9B 0 INZ(0)
- D SNDPM_MSG_TYPE...
- D S 10A INZ('*INFO')
- D SNDPM_C_STACK_ENTRY...
- D S 32767A BASED(SNDPM_C_BASE)
- D SNDPM_C_STACK_COUNTER...
- D S 9B 0 INZ(0)
- D SNDPM_MSG_KEY...
- D S 4A
- *
- /IF DEFINED(QMHSNDPM_OPG1)
- *-------------------------------------------------------------------------
- * SEND PROGRAM MESSAGE OPTIONAL PARAMETER GROUP 1
- *-------------------------------------------------------------------------
- *
- D SNDPM_LENGTH_C_STACK_ENTRY... LENGTH OF CALL
- D S 9B 0 STACK ENTRY
- D SNDPM_C_STACK_ENTRY_QUAL... CALL STACK ENGRY
- D S 20A QUALIFICATION
- D SNDPM_DSP_P_MSG_SCREEN_WAIT... DISPLAY PROGRAM
- D S 20A MESSAGE SCREEN
- D WAIT TIME
- /ENDIF
- *
- /IF DEFINED(QMHSNDPM_OPG2)
- *-------------------------------------------------------------------------
- * SEND PROGRAM MESSAGE OPTIONAL PARAMETER GROUP 2
- *-------------------------------------------------------------------------
- *
- D SNDPM_C_STACK_ENTRY_DATA_TYPE... CALL STACK ENTRY
- D S 10A DATA TYPE
- D SNDPM_CCSID... CODED CHARACTER
- D S 9B 0 SET IDENTIFIER
- /ENDIF
- *
- *=========================================================================
-
- DUSERCH - Copybook
- /* */
- /* Out: 9/26/06 9:05 Ver: 0. 0 Level40 CHRISTEN, DUANE J. - IT&S */
- /* Ref: ANIN100601 ANI Inventory/Update user condition Handler calls */
- /* DJC: Fix 9B fields to 10I */
- /* */
- /* Out: 3/17/03 14:10 Ver: 0. 0 Level40 Duane J. Christen */
- /* Ref: ANIN100202 ANI Inventory/Warranty: Complex 800 */
- /* DJC: Initial copybook creation */
- /* */
-
- /If Defined(DUSERCH)
- /Eof
- /EndIf
-
- /Define DUSERCH
-
- /*=============================================================================================
- /* Prototype Specifications for User Condition Handler
- /*=============================================================================================
-
- D userConditionHandlerExit...
- D PR ExtProc(userCH.exitProc)
- D * User Data
-
- D registerConditionHandler...
- D PR ExtProc('CEEHDLR')
- D * ProcPtr Procedure
- D * User Data
- D 12A Options(*Omit) Returned Condition
-
- D unRegisterConditionHandler...
- D PR ExtProc('CEEHDLU')
- D * ProcPtr Procedure
- D 12A Options(*Omit) Returned Condition
-
- D setJmp PR 10I 0 ExtProc('__setjmp')
- D placeHolder LikeDS(jumpPoint) Program Stack
-
- /*=============================================================================================
- /* Data Specifications for PVS9999
- /*=============================================================================================
-
|
|