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
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
Face aux failles de résilience des tenants M365 (configurations, privilèges, sauvegarde). Découvrez 5 piliers pour durcir, segmenter et surveiller vos environnements afin de limiter l’impact des attaques. Prioriser vos chantiers cyber et améliorer la résilience de vos tenants Microsoft 365.
Communes, entreprises ? Non, face au RGAA 5, l’IA seule ne rendra pas vos sites accessibles
DevX Summit EMEA : les développeurs au cœur de la révolution de l’IA
Adapter la sécurité OT aux réalités de l’industrie
Coder vite, mais coder juste : trouver l’équilibre à l’ère de l’IA
Mixité dans la Tech : en 2026, un choix de souveraineté stratégique
