> 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 cette ressource

SD-WAN de confiance : guide de mise en œuvre

SD-WAN de confiance : guide de mise en œuvre

Ce livre blanc décrit les différents aspects indispensables pour la mise en place d’une approche SD-WAN sécurisée et de confiance. Ce document s’adresse aux consultants et responsables sécurité des systèmes d’information pour bien comprendre les enjeux du Trusted SD-WAN à l’heure de la transformation numérique des entreprises.

Tech - Par iTPro - Publié le 24 juin 2010