Discussion :

[sojin]

Bonjour,

Je souhaiterai ajouter des applications dans le plan courant via un JCL mais en lui précisant de ne pas s'accrocher aux dépendance existante dans Plan courant car par défaut il le fait.
Sous TW en 5.1, c'est l'option "automatic dep => N"

Exemple

000001,//STOPP1JC JOB ADD,ADAPL,MSGCLASS=X,CLASS=S,
000002,// REGION=0M,SCHENV=NONUB
000003,//*------------------------------------------------------
000004,//ADDAPPL EXEC PGM=EQQADD,PARM='TWC0'
000005,//EQQMLOG DD SYSOUT=*
000006,//EQQMLIB DD DISP=SHR,DSN=TWS.V8R5M1.SEQQMSG0
000007,//EQQDUMP DD SYSOUT=*
000008,//EQQYPARM DD DISP=SHR,
000009,// DSN=T$UTD.B0ZTWS85.PLEXOS50.PARM(EQQYPARM)
000010,//SYSPRINT DD SYSOUT=*
000011,//SYSIN DD *
000012, APPL(DNPSAAOJ01IFD) IA(1010111446)

Quelqu'un connaitrait il cette option ?


Merci d'avance pour votre aide.

[coderetour0]

salut,

dans les exemples tws, pds SEQQSAMP, on trouve le membre EQQPIFCB qui contient le source asm du pgm EQQADD, le jcl pour le compiler, etc...

je ne connais pas l'asm sur ibm mais y a fort à parier que pour solutionner ton pb tu dois modifier les arg suivants (passer les 2 valeurs YES à NO) et le recompiler sous un autre nom.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 BROWSE    TWS.SEQQSAMP(EQQPIFCB)                     Line 00000345 Col 001 080 
 Command ===>                                                  Scroll ===> CSR  
* REQUEST RESOLUTION OF EXTERNAL DEPENDENCIES                         *         
*---------------------------------------------------------------------*         
         MVC   ACTION,=CL8'OPTIONS'   * ACTION CODE = OPTIONS                   
         MVC   RESOURCE,=CL8' '       * NO RESOURCE                             
         MVC   NAMELIST,=CL8'LTDEPR'  * RESOLVE LTP DEPENDENCIES                
         MVC   VALULIST,=A(YES)       * ARGUMENT LIST, 1ST VALUE                
         MVC   NAMELIST+8,=CL8'CPDEPR' * RESOLVE CP DEPENDENCIES                
         MVC   VALULIST+4,=A(YES)     * ARGUMENT LIST, 2ND VALUE

++

[bernard59139]

Bonjour

Si la procédure pour utiliser OCL est en place sur votre site, ce jcl peux vous aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
//EQQOCL   EXEC  EQQYRPRC                                       
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330) 
//SYSTSPRT DD SYSOUT=*
//EQQOCL.SYSIN    DD *
 ADD APPL(RECUP01) GDEPRES(N)

[sam01]

Salut,

voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//BATCHC  EXEC PGM=EQQYCAIN,REGION=8M,PARM='TWSP,MSGOFF'      
//STEPLIB  DD DSN=TWS.V8R2M0.SEQQLMD0,DISP=SHR                
//EQQMLIB  DD DISP=SHR,DSN=TWS.V8R2M0.SEQQMSG0                
//EQQYPARM  DD DSN=TWS.UNL..MISX(PIFPARM),DISP=SHR     
//BATCHL   DD SYSOUT=*                                        
//OI       DD SYSOUT=*                                        
//AD       DD SYSOUT=*                                        
//CPOC     DD SYSOUT=*                                        
//CPOP     DD SYSOUT=*                                        
//EXPORTAD DD SYSOUT=*                                        
//EXPORTOI DD SYSOUT=*                                        
//ERREUR   DD SYSOUT=*                                        
//EQQMLOG  DD SYSOUT=*                                        
//EQQDUMP  DD SYSOUT=*                                        
//SYSPRINT DD SYSOUT=*                                        
//SYSUDUMP DD SYSOUT=*                                        
//SYSIN    DD *                                               
ACTION=OPTIONS,BL=Y,BLPRT=N,LTP=Y,LTDEPR=Y,CPDEPR=Y;          
ACTION=INSERT,RESOURCE=CPOC,ADID=TESTAPP,IA=1105310700;

Tu dois jouer sur la valeur de CPDEPR=Y (Current Plan Dependency...)

[sojin]

Bonjour,

Désolé de ne pas avoir répondu plutôt.

Pour la première solution, je ne peux pas modifier le programme puis le recompiler.

La deuxième solution me parait parfaite mais OCL n'est pas implanté dans ma société.

Et la troisième fonctionne uniquement pour ajouter dans applications dans le plan à long terme. (j'ai un message d'erreur quand j'ajoute des applications à la date de mon plan courant).

[coderetour0]

salut,

la troisième solution doit fonctionner !!
la ligne d'option est trop complète. pour un insert d'une appli dans le plan courant, bl et blprt sont inutiles.
mais ton msg d'erreur provient du paramètre ltp. enlève le ou passe le à N (valeur par défaut).

++

[sam01]

Au pire fais nous parvenir le message d'erreur avec ta sysin.

[sojin]

Cela fonctionne. effectivement le paramètre ltp à Y bloqué. Je l'ai passé a N et cela fonctionne.

Merci pour votre aide !

[sam01]

Merci de nous le faire savoir.

Un petit résolu