GreenJab ILE Functions

 ****************************************************************

 * Exported GreenJab Prototypes

 ****************************************************************

 *//////////////////////////////////////////////////////////////*

 * #gj_init - Initialize the server                             *

 *                                                              *

 *  Required for Server                                         *

 *                                                              *

 *  Returns - <1 for error, 0 for no error                      *

 *//////////////////////////////////////////////////////////////*

D #gj_init        PR            10i 0

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_startJob - Starts the listener job                       *

 *                                                              *

 *  Required for Server                                         *

 *                                                              *

 *  Returns - <1 for error, >=0 for no error                    *

 *//////////////////////////////////////////////////////////////*

D #gj_startJob    PR            10i 0

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_close - End the server job and perform cleanup           *

 *                                                              *

 *  Required for Server                                         *

 *                                                              *

 *  Returns - <1 for error, >=0 for no error                    *

 *//////////////////////////////////////////////////////////////*

D #gj_close       PR            10i 0

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_getChatID - get the Chat ID                              *

 *                                                              *

 *  Returns - Chat ID                                           *

 *//////////////////////////////////////////////////////////////*

D #gj_getChatID   PR           256

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_getJID - get the JID                                     *

 *                                                              *

 *  Returns - JID                                               *

 *//////////////////////////////////////////////////////////////*

D #gj_getJID      PR           256

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_getBareJID - get the "bare" JID                          *

 *                                                              *

 *  Returns - bare JID                                          *

 *//////////////////////////////////////////////////////////////*

D #gj_getBareJID  PR           256

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_getUserStatus - get status for a user                    *

 *                                                              *

 *  User ID (Input) - The ID to use check status for.  The      *

 *                     userid must be in the "friend" list      *

 *                     for the account for the From ID          *

 *                                                              *

 *  Returns - -2=Error                                          *

 *            -1=unavailable                                    *

 *             0=available but away                             *

 *             1=available                                      *

 *//////////////////////////////////////////////////////////////*

D #gj_getUserStatus...

D                 PR            10i 0

D   PR_user                    256    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setServer - set Server Name                              *

 *                                                              *

 *  Required for Server                                         *

 *                                                              *

 *  Server (Input) - The name of the server                     *

 *//////////////////////////////////////////////////////////////*

D #gj_setServer   PR

D   PR_server                  256    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setPort - set Port Number                                *

 *                                                              *

 *  Required for Server                                         *

 *                                                              *

 *  Port (Input) - The port to connect to on the server         *

 *//////////////////////////////////////////////////////////////*

D #gj_setPort     PR

D   PR_port                     10i 0 Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setFromID - set the From ID                              *

 *                                                              *

 *  Required for Server and Client                              *

 *                                                              *

 *  From ID (Input) - The ID to use when connecting to the      *

 *                     server                                   *

 *//////////////////////////////////////////////////////////////*

D #gj_setFromID   PR

D   PR_fromID                  256    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setKey - set the Key                                     *

 *                                                              *

 *  Optional for Server and Client                              *

 *  Must be called after #gj_setFromID                          *

 *                                                              *

 *  Key (input) - The key to use for communications.  The       *

 *                 default is the From ID.                      *

 *//////////////////////////////////////////////////////////////*

D #gj_setKey      PR

D   PR_key                     256    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setPassword - set the Password                           *

 *                                                              *

 *  Required for Server                                         *

 *                                                              *

 *  Password (Input) - The password associated with the fromID  *

 *//////////////////////////////////////////////////////////////*

D #gj_setPassword...

D                 PR

D   PR_password                256    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setTimeout - set Timeout value                           *

 *                                                              *

 *  Specify time in seconds, default is 30                      *

 *                                                              *

 *  Time (Input) - the time in seconds to use for socket        *

 *                  timeout                                     *

 *//////////////////////////////////////////////////////////////*

D #gj_setTimeout  PR

D   PR_time                     10i 0 Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setJobTimeout - set Job Timeout Value                    *

 *                                                              *

 *  Specify time in seconds that the job should run without     *

 *   getting any input or output from the user.  The default    *

 *   is 0, which means to never end automatically.              *

 *                                                              *

 *  Time (Input) - the time in seconds to use for the job       *

 *                  timeout                                     *

 *//////////////////////////////////////////////////////////////*

D #gj_setJobTimeout...

D                 PR

D   PR_time                     10i 0 Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setStatus - set the Status that will appear              *

 *                                                              *

 *  Default is "Available on GreenJab!"                         *

 *                                                              *

 *  Status (Input) - the status to use when logged on           *

 *//////////////////////////////////////////////////////////////*

D #gj_setStatus   PR

D   PR_status                  128    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setResource - set The resource value                     *

 *                                                              *

 *  This is rareley used, but works well to clean up any        *

 *   orphaned resources that may be out there in jabber land    *

 *                                                              *

 *  Resource (Input) - The Resource to use when logged on       *

 *//////////////////////////////////////////////////////////////*

D #gj_setResource...

D                 PR

D   PR_resource                256    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setStmfCP - set the Stream File Code Page                *

 *                                                              *

 *  Default is 819                                              *

 *                                                              *

 *  Code Page (Input) - The Stream File Code page to use        *

 *//////////////////////////////////////////////////////////////*

D #gj_setStmfCP   PR

D   PR_stmfCP                   10i 0 Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setCCSID - set the CCSID for EBCDIC --> ASCII            *

 *                                                              *

 *  Default is 819                                              *

 *                                                              *

 *  CCSID (Input) - The CCSID to use for conversions            *

 *//////////////////////////////////////////////////////////////*

D #gj_setCCSID    PR

D   PR_CCSID                    10i 0 Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setDebug - Turn on or off debug                          *

 *                                                              *

 *  Default is *OFF                                             *

 *                                                              *

 *  Debug (Input) - Turn Debug on or off                        *

 *//////////////////////////////////////////////////////////////*

D #gj_setDebug    PR

D   PR_debug                      N   Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setDebugFile - Specify the debug file (fully qualified)  *

 *                                                              *

 *  Default is /tmp/<fromid>greenjabdebug.txt                   *

 *                                                              *

 *  Debug File (Input) - The fully qualified path and file to   *

 *                        use for debugging                     *

 *//////////////////////////////////////////////////////////////*

D #gj_setDebugFile...

D                 PR

D   PR_debugFile               256    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setGCP - Set Google Cloud Print value (experimental)     *

 *                                                              *

 *  Default is *OFF                                             *

 *                                                              *

 *  GCP - *ON to turn on GCP, *OFF to leave it off              *

 *//////////////////////////////////////////////////////////////*

D #gj_setGCP      PR

D   PR_GCP                        N   Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setLocalIP - Set the local IP to bind to                 *

 *                                                              *

 *  Default is none                                             *

 *                                                              *

 *  IP (Input) - The local IP, if required, to bind             *

 *                communications to                             *

 *//////////////////////////////////////////////////////////////*

D #gj_setLocalIP  PR

D   PR_localIP                  64    Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_setLocalIP - Set the local port to bind to               *

 *                                                              *

 *  Default is none                                             *

 *                                                              *

 *  Port (Input) - The port to use for local binding            *

 *//////////////////////////////////////////////////////////////*

D #gj_setLocalPort...

D                 PR

D   PR_port                     10i 0 Value

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_isActive - check if jog is active.                       *

 *                                                              *

 *  The from ID must be set before calling                      *

 *                                                              *

 *  Returns - 1=Active, 0=Not Active, <1=Error                  *

 *//////////////////////////////////////////////////////////////*

D #gj_isActive    PR            10i 0

 *

 *//////////////////////////////////////////////////////////////*

 * #gj_enqMsg - Send a message to the from ID the listener      *

 *  job is running for                                          *

 *                                                              *

 *  Address (Input) - The address you're sending the message to *

 *  Message (Input) - The message.  If the message              *

 *   starts with < and ends in > it will be treated as "raw"    *

 *  Key (Input - optional) - if for some reason you want to     *

 *   override the from address                                  *

 *  Returns -1 for error, otherwise number of bytes sent        *

 *//////////////////////////////////////////////////////////////*

D #gj_enqMsg      PR            10i 0

D   PR_address                 256    Value

D   PR_message               65535    Value

D   PR_key                     256    Value Options(*NOPASS)

 *//////////////////////////////////////////////////////////////*

 * #gj_deqMsg - Retrieve a message from the listener job        *

 *                                                              *

 *  Address (Output) - The address the message is from          *

 *  Message (Output) - The message                              *

 *  Address format (Input) - 0 = JID, 1 = email address         *

 *  Wait Time (Input) - The time to wait for a message          *

 *  Key (Input optional) - if for some reason you want to       *

 *   override the from address                                  *

 *  Returns -1 for error, otherwise number of bytes in message  *

 *//////////////////////////////////////////////////////////////*

D #gj_deqMsg      PR            10i 0

D   PR_address                 256

D   PR_message               65535

D   PR_addFmt                   10i 0 Value Options(*NOPASS)

D   PR_waitTime                 10i 0 Value Options(*NOPASS)

D   PR_key                     256    Value Options(*NOPASS)

 ****************************************************************

 * Constants, Variables, etc

 ****************************************************************

D gj_messageDS    DS                  Qualified

D  address                     256                                         Address

D  message                   32510                                         Message