|
Code:
- /*=============================================================================================
- /* Notes
- /*=============================================================================================
-
- /* Compile with ACTGRP(*CALLER)
-
- /*=============================================================================================
- /* Control Specifications
- /*=============================================================================================
-
- H NoMain
- H BndDir('MCSERV')
- H Option(*NODEBUGIO : *NOUNREF)
- H ExtBinInt
-
- /*=============================================================================================
- /* File Specifications
- /*=============================================================================================
-
-
- /*=============================================================================================
- /* Prototype Specifications
- /*=============================================================================================
-
- /Define determineCallStackEntry
- /Include QRpgCbSrc,SVRM999700
-
- /Include QRpgCbSrc,SVS9998
- /Include QRpgCbSrc,SVS9997
-
- /*=============================================================================================
- /* Data Specifications
- /*=============================================================================================
-
- /*---------------------------------------------------------------------------------------------
- /* Data Structure Specifications
- /*---------------------------------------------------------------------------------------------
-
-
- /*---------------------------------------------------------------------------------------------
- /* Array Specifications
- /*---------------------------------------------------------------------------------------------
-
- D errNoId S 15A Dim(156) CtData PerRcd(6)
- D errNo# S 4S 0 Dim(156) CtData PerRcd(24) Ascend
- D errNoText S 100A Dim(156) CtData
-
- /*---------------------------------------------------------------------------------------------
- /* Indicator Specifications
- /*---------------------------------------------------------------------------------------------
-
- D globalInit S N
-
- /*---------------------------------------------------------------------------------------------
- /* Standalone Data Specifications
- /*---------------------------------------------------------------------------------------------
-
-
- /*---------------------------------------------------------------------------------------------
- /* Constant Specifications
- /*---------------------------------------------------------------------------------------------
-
-
- /*#############################################################################################
- /* errNoTrap - Trap errNo Conditions
- /*#############################################################################################
-
- P errNoTrap...
- P B Export
-
- /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- /* Procedure Interface
- /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-
- D errNoTrap...
- D PI 10I 0
- D errorNumber 10I 0 Const Error Number
- D functionName 100A Const Varying Function Name
- D messageType 10A Const Options(*NOPASS) Message Type
- D callStackEntry... Call Stack Entry
- D 256A Const Varying Options(*NOPASS)
-
- /*=============================================================================================
- /* Procedure Data Specifications
- /*=============================================================================================
-
- /Include QRpgCbSrc,DQUsec
-
- /Define QMHSNDPM_OPG1
- /Include QRpgCbSrc,DQMhSndPm
-
- /*---------------------------------------------------------------------------------------------
- /* Procedure Data Structure Specifications
- /*---------------------------------------------------------------------------------------------
-
-
- /*---------------------------------------------------------------------------------------------
- /* Procedure Array Specifications
- /*---------------------------------------------------------------------------------------------
-
-
- /*---------------------------------------------------------------------------------------------
- /* Procedure Indicator Specifications
- /*---------------------------------------------------------------------------------------------
-
-
- /*---------------------------------------------------------------------------------------------
- /* Procedure Standalone Data Specifications
- /*---------------------------------------------------------------------------------------------
-
- D x S 10I 0
- D entry S 10A
-
- /*---------------------------------------------------------------------------------------------
- /* Procedure Constant Specifications
- /*---------------------------------------------------------------------------------------------
-
-
- /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- /* Procedure Code
- /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-
- /Free
-
- ExSr initialize;
-
- x = %LookUp(errorNumber : errNo#);
-
- If x > 0;
- setMessageData(sndPm_Msg_Id :
- sndPm_Dta_Base :
- sndPm_Data_Length :
- functionName :
- %Trim(errNoId(x)) :
- %Trim(%EditC(errNo#(x) : 'X')) :
- errNoText(x));
-
- ElseIf errorNumber <> 0;
- setMessageData(sndPm_Msg_Id :
- sndPm_Dta_Base :
- sndPm_Data_Length :
- functionName :
- 'UNKNOWN' :
- %Trim(%EditC(errorNumber : 'X')) :
- 'Unknown errNo Number.');
- EndIf;
-
- If errorNumber <> 0;
- /Include QRpgCbSrc,CQMhSndPm
- EndIf;
-
- /Include QRpgCbSrc,LQMhSndPm
- /Include QRpgCbSrc,LQUsec
-
- Return errorNumber;
-
- //==================================================================================
- // Initilizing Subroutine
- //==================================================================================
-
- BegSr initialize;
-
- usec_Data_Length = 250;
- sndPm_Data_Length = 250;
- /Include QRpgCbSrc,ZQUsec
- /Include QRpgCbSrc,ZQMhSndPm
-
- sndPm_Msg_Id = 'PVMEC04';
- sndPm_Msg_Type = '*ESCAPE';
- sndPm_C_Stack_Counter = 1;
- %SubSt(sndPm_C_Stack_Entry : 1 : 10) = '*';
- sndPm_Length_C_Stack_Entry = 10;
- sndPm_C_Stack_Entry_Program = '*NONE';
- sndPm_C_Stack_Entry_Module = '*NONE';
-
- If %Parms >= 3;
- If messageType = '*INFO' or
- messageType = '*COMP' or
- messageType = '*DIAG' or
- messageType = '*ESCAPE' or
- messageType = '*INQ' or
- messageType = '*NOTIFY' or
- messageType = '*RQS' or
- messageType = '*STATUS';
- sndPm_Msg_Type = %Trim(messageType);
- EndIf;
- EndIf;
-
- If %Parms >= 4;
- sndPm_C_Base =
- determineCallStackEntry(callStackEntry :
- sndPm_C_Base :
- sndPm_Length_C_Stack_Entry :
- sndPm_C_Stack_Counter :
- sndPm_C_Stack_Entry_Program :
- sndPm_C_Stack_Entry_Module);
- EndIf;
-
- EndSr;
-
- /End-Free
-
- P errNoTrap...
- P E
-
- //===========================================================================================
-
- **CTDATA errNoId
- EDOM ERANGE ETRUNC ENOTOPEN ENOTREAD EIO
- ENODEV ERECIO ENOTWRITE ESTDIN ESTDOUT ESTDERR
- EBADSEEK EBADNAME EBADMODE EBADPOS ENOPOS ENUMMBRS
- ENUMRECS EINVAL EBADFUNC ENOENT ENOREC EPERM
- EBADDATA EBUSY EBADOPT ENOTUPD ENOTDLT EPAD
- EBADKEYLN EPUTANDGET EGETANDPUT EIOERROR EIORECERR EACCES
- ENOTDIR ENOSPC EXDEV EAGAIN EWOULDBLOCK EINTR
- EFAULT ETIME ENXIO EAPAR ERECURSE EADDRINUSE
- EADDRNOTAVAIL EAFNOSUPPORT EALREADY ECONNABORTED ECONNREFUSED ECONNRESET
- EDESTADDRREQ EHOSTDOWN EHOSTUNREACH EINPROGRESS EISCONN EMSGSIZE
- ENETDOWN ENETRESET ENETUNREACH ENOBUFS ENOPROTOOPT ENOTCONN
- ENOTSOCK ENOTSUP EOPNOTSUPP EPFNOSUPPORT EPROTONOSUPPORTEPROTOTYPE
- ERCVDERR ESHUTDOWN ESOCKTNOSUPPORTETIMEDOUT EUNATCH EBADF
- EMFILE ENFILE EPIPE ECANCEL EEXIST EDEADLK
- ENOMEM EOWNERTERM EDESTROYED ETERM ENOENT1 ENOEQFLOG
- EEMPTYDIR EMLINK ESPIPE ENOSYS EISDIR EROFS
- EUNKNOWN EITERBAD EITERSTE EHRICLSBAD EHRICLBAD EHRITYPBAD
- ENOTAPPL EHRIREQTYP EHRINAMEBAD EDAMAGE ELOOP ENAMETOOLONG
- ENOLCK ENOTEMPTY ENOSYSRSC ECONVERT E2BIG EILSEQ
- ETYPE EBADDIR EBADOBJ EIDXINVAL ESOFTDAMAGE ENOTENROLL
- EOFFLINE EROOBJ EEAHDDSI EEASDDSI EEAHDDS EEASDDS
- EEADUPRC ELOCKED EFBIG EIDRM ENOMSG EFILECVT
- EBADFID ESTALE ESRCH ENOTSIGINIT ECHILD EBADH
- ETOOMANYREFS ENOTSAFE EOVERFLOW EJRNDAMAGE EJRNINACTIVE EJRNRCVSPC
- EJRNRMT ENEWJRNRCV ENEWJRN EJOURNALED EJRNENTTOOLONG EDATALINK
- ENOTAVAIL ENOTTY EFBIG2 ETXTBSY EASPGRPNOTSET ERESTART
- **CTDATA errNo#
- 300130023003300430053006300730083009301030113012301330143015301730183019302030213022302530263027
- 302830293040304130423043304430803081310131023401340334043405340634063407340834093415341834193420
- 342134223423342434253426342734283429343034313432343334343435343634373438343934403440344134423443
- 344434453446344734483450345234533455345634573459346034623463346434653466346734683469347034713472
- 347434753476347734783479348034813482348434853486348734883489349034913492349334943495349634973498
- 349935003501350235033504350535063507350935103511351235133515351635173520352335243525352635273528
- 352935303531353235333534353535363540354335443545
- **CTDATA errNoText
- A domain error occurred in a math function.
- A range error occurred.
- Data was truncated on an input, output, or update operation.
- File is not open.
- File is not opened for read operations.
- Input/output error.
- No such device.
- Cannot get single character for files opened for record I/O.
- File is not opened for write operations.
- The stdin stream cannot be opened.
- The stdout stream cannot be opened.
- The stderr stream cannot be opened.
- The positioning parameter in fseek is not correct.
- The object name specified is not correct.
- The type variable specified on the open function is not correct.
- The position specifier is not correct.
- There is no record at the specified position.
- Attempted to use ftell on multiple members.
- The current record position is too long for ftell.
- The value specified for the argument is not correct.
- Function parameter in the signal function is not set.
- No such path or directory.
- Record is not found.
- The operation is not permitted.
- Message data is not valid.
- Resource busy.
- Option specified is not valid.
- File is not opened for update operations.
- File is not opened for delete operations.
- The number of characters written is shorter than the expected record length.
- A length that was not valid was specified for the key.
- A read operation should not immediately follow a write operation.
- A write operation should not immediately follow a read operation.
- A nonrecoverable I/O error occurred.
- A recoverable I/O error occurred.
- Permission denied.
- Not a directory.
- No space is available.
- Improper link.
- Operation would have caused the process to be suspended.
- Operation would have caused the process to be suspended.
- Interrupted function call.
- The address used for an argument was not correct.
- Operation timed out.
- No such device or address.
- Possible APAR condition or hardware failure.
- Recursive attempt rejected.
- Address already in use.
- Address is not available.
- The type of socket is not supported in this protocol family.
- Operation is already in progress.
- Connection ended abnormally.
- A remote host refused an attempted connect operation.
- A connection with a remote socket was reset by that socket.
- Operation requires destination address.
- A remote host is not available.
- A route to the remote host is not available.
- Operation in progress.
- A connection has already been established.
- Message size is out of range.
- The network currently is not available.
- A socket is connected to a host that is no longer available.
- Cannot reach the destination network.
- There is not enough buffer space for the requested operation.
- The protocol does not support the specified option.
- Requested operation requires a connection.
- The specified descriptor does not reference a socket.
- Operation is not supported.
- Operation is not supported.
- The socket protocol family is not supported.
- No protocol of the specified type and domain exists.
- The socket type or protocols are not compatible.
- An error indication was sent by the peer program.
- Cannot send data after a shutdown.
- The specified socket type is not supported.
- A remote host did not respond within the timeout period.
- The protocol required to support the specified address family is not available at this time.
- Descriptor is not valid.
- Too many open files for this process.
- Too many open files in the system.
- Broken pipe.
- Operation cancelled.
- File exists.
- Resource deadlock avoided.
- Storage allocation request failed.
- The synchronization object no longer exists because the owner is no longer running.
- The synchronization object was destroyed, or the object no longer exists.
- Operation was terminated.
- No such file or directory.
- Object is already linked to a dead directory.
- Directory is empty.
- Maximum link count for a file was exceeded.
- Seek request is not supported for object.
- Function not implemented.
- Specified target is a directory.
- Read-only file system.
- Unknown system state.
- Iterator is not valid.
- Iterator is in wrong state for operation.
- HRI class is not valid.
- HRI subclass is not valid.
- HRI type is not valid.
- Data requested is not applicable.
- HRI request type is not valid.
- HRI resource name is not valid.
- A damaged object was encountered.
- A loop exists in the symbolic links.
- A path name is too long.
- No locks are available.
- Directory is not empty.
- System resources are not available.
- Conversion error.
- Argument list is too long.
- Conversion stopped due to input character that does not belong to the input codeset.
- Object type mismatch.
- Attempted to reference a directory that was not found or was destroyed.
- Attempted to reference an object that was not found, was destroyed, or was damaged.
- Data space index used as a directory is not valid.
- Object has soft damage.
- User is not enrolled in system distribution directory.
- Object is suspended.
- Object is a read-only object.
- Hard damage on extended attribute data space index.
- Soft damage on extended attribute data space index.
- Hard damage on extended attribute data space.
- Soft damage on extended attribute data space.
- Duplicate extended attribute record.
- Area being read from or written to is locked.
- Object too large.
- The semaphore, shared memory, or message queue identifier is removed from the system.
- The queue does not contain a message of the desired type and (msgflg logically ANDed with IPC_NOWAIT
- File ID conversion of a directory failed.
- A file ID could not be assigned when linking an object to a directory.
- File handle was rejected by server.
- No such process.
- Process is not enabled for signals.
- No child process.
- Handle is not valid.
- The operation would have exceeded the maximum number of references allowed for a descriptor.
- Function is not allowed.
- Object is too large to process.
- Journal is damaged.
- Journal is inactive.
- Journal space or system storage error.
- Journal is remote.
- New journal receiver is needed.
- New journal is needed.
- Object already journaled.
- Entry is too large to send.
- Object is a datalink object.
- IASP is not available.
- I/O control operation is not appropriate.
- Attempt to write or truncate file past its sort file size limit.
- Text file busy.
- ASP group not set for thread.
- A system call was interrupted and may be restarted.
|
|