> Tech > Figure 2

Figure 2

Tech - Par iTPro - Publié le 24 juin 2010
email

Programme RPG ILE CHKCONC2

H DEBUG(*YES) datfmt(*iso)
* ==============================================================
*
*
*- Program......: API003R
*- Designed.by..: VICTOR PISMAN
*- Version.#....: 000.00
* *- Copyright - North American Paper Company, 2001
*
*- General Description: This program retrieves job status.
*- Technical Description:
*-
* ==============================================================
* P R O G

Figure 2

R A M E X E C U T I O N
*
* Passed parameters….:
* Submitted job name…:
* Called/Submitted by..:
* ==============================================================
* E X T E R N A L P R O G R A M C A L L S
*
* XXXX……………..:
* ==============================================================
* I N T E R N A L R O U T I N E N A M E S
*
* XXXX……………..:
* ==============================================================
* I N D I C A T O R S U M M A R Y
* ————————————————————–
* IND Description of Use
*
* 80 General Chain Indicator
* ==============================================================
*
* Program Change Log:
* Chgid Datee By: Description
* —– ——– — ———————————————-
* ==============================================================
* Array Declaration
* To be run customer list
D@ErrorMsg C ‘An error was encountered –
D for selected job’
D@StatusMsg C ‘The status of the selected –
D job is: ‘
DReturnMsg S 50A
*—————————————————————-
* API Parameters end
*—————————————————————-
DReceiverLen S 10I 0 Inz(%Size(RcvQWCRJBST))
DJobIDFormat S 8A Inz(‘JOBS0300’)
DJobID S 26A
*—————————————————————-
* API Receiver Structure
*—————————————————————-
DRcvQWCRJBST DS
D BytesReturn 10I 0
D BytesAvail 10I 0
D JobStatus 10A
D InternalJobID 16A
D QualJobName 26A
*—————————————————————-
* Common API Error Structure
*—————————————————————-
DAPIErrorDS DS
D APIBytes 10I 0 Inz(%Size(APIErrorDS))
D APIBytesOut 10I 0
D APIErrID 7A
D APIReserved 1A
D APIErInDta 256A
*—————————————————————-
* Module Entry Parameters
*—————————————————————-
DJobnameIn S 10A
DJobUserIn S 10A
DJobNumIn S 6A
* ==============================================================
* M A I N L I N E P R O C E S S
* ————————————————————–
C *Entry PList
C Parm JobNameIn
C Parm JobUserIn
C Parm JobNumIn
C Parm RtnFlg 1
*
C move JobNumIn JobNum# 6 0
*
C Eval i=1
C Eval JobNum#=JobNum#+2500
*
C 1 DO 5000 i 6 0
C If JobNum# > 0
C
*
C Eval JobNum#=JobNum#-1
C move JobNum# JobNumIn
*
C Eval JobID = JobNameIn+JobUserIn+JobNumIn
*
C Call ‘QWCRJBST’
C Parm RcvQWCRJBST
C Parm ReceiverLen
C Parm JobId
C Parm JobIdFormat
C Parm APIErrorDS
*
C If JobStatus <> ‘*ERROR ‘
*
C If JobStatus=’*ACTIVE’
C Eval RtnFlg=’Y’
C Endif
C GOTO endpgm
*
C Endif
*
C Endif
C ENDDO
*
C endpgm TAG
*
C Return

Téléchargez gratuitement cette ressource

Le Guide d’Orchestration du Parcours client

Le Guide d’Orchestration du Parcours client

Au-delà de la clarification des nouveaux concepts de gestion du parcours client, ce guide vous permettra de définir, créer et mettre œuvre une orchestration complète articulée autour des trois volets essentiels au succès de l’expérience client et de l’entreprise.

Tech - Par iTPro - Publié le 24 juin 2010