> Tech > Figure 2

Figure 2

Tech - Par Renaud ROSSET - 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 cette ressource

Cybersécurité des collectivités : Enjeux, Perspectives & Solutions

Cybersécurité des collectivités : Enjeux, Perspectives & Solutions

Villes, intercommunalités, métropoles, départements et régions sont particulièrement exposés aux risques de cybersécurité. Ce livre blanc Stormshield présente les défis cyber que rencontrent les collectivités, les solutions et perspectives pour qu’elles puissent assurer leur mission d’utilité publique, en toute sécurité.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010