Précédent   Forum du club des développeurs et IT Pro > Systèmes > Autres systèmes > z/OS
z/OS Forum d'entraide sur z/OS et MVS (Multiple Virtual Storage), les systèmes d'exploitation des ordinateurs « mainframes » IBM : JCL, Tso, Ispf, Vsam, Racf, SMS, Cics, Ims, OPC, Ca-7, Control-M, Dialog Manager ...
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 03/09/2012, 12h37   #1
Julien Del
Nouveau Membre du Club
 
Développeur COBOL
Inscription : mai 2009
Messages : 29
Détails du profil
Informations personnelles :
Âge : 39
Localisation : France, Paris (Île de France)

Informations professionnelles :
Activité : Développeur COBOL
Secteur : Finance

Informations forums :
Inscription : mai 2009
Messages : 29
Points : 29
Points : 29
Par défaut IEBGENER et NUMBER ON/OFF

Bonjour

je crée un fichier de plusieurs lignes via un IEBGENER tout simple

Code :
1
2
3
4
5
6
7
8
9
10
//ETA0020  EXEC PGM=IEBGENER                             
//SYSPRINT DD  SYSOUT=*                                  
//SYSIN    DD  DUMMY                                     
//SYSUT1   DD  *                                         
 DSN SYSTEM(TEST)                                        
 RUN PROGRAM(JDE00324) PLAN(TESTBU1) PARM('£VAL£')      
/*                                                       
//SYSUT2   DD  DSN=U01WKS.$$PS01$$.AEP.AEPHBAAZ,         
//             DISP=(,CATLG),DSORG=PS,RECFM=FB,LRECL=80, 
//             SPACE=(CYL,(1,1),RLSE)
Sauf que le fichier en sortie se retrouve en NUMBER ON et donc contient des informations en fin de colonne
Code :
1
2
3
4
***************************** Top of Data ******************************
-1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
TEM(TEST)                                                       00520002
GRAM(JDE00324) PLAN(TEST1BU1) PARM('£VAL£')                     00530002
Et cela m'embête grandement car j'ai ensuite un programme qui remplace le paramètre £VAL£ par un champ de 10 caractères
mais le programme croit qu'il n'y a plus de place pour décaler à droite.


Y a t-il une option sur le IEBGENER qui permettrait de créer un fichier forcé à NUMBER OFF?
Julien Del est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/09/2012, 13h12   #2
haugure
Invité de passage
 
Inscription : janvier 2005
Messages : 3
Détails du profil
Informations forums :
Inscription : janvier 2005
Messages : 3
Points : 2
Points : 2
Bonjour Julien,

Je pense que la solution pourrait être du coté de la commande unnum, tout dépend en fait de comment ton profile est défini mais aussi de comment tu récupère le fichier de sortie pour y injecter la valeur dans ta variable... la commande unnum doit être saisie au préalable sans quoi c'est la valeur par défaut de l'éditeur qui sera utilisée (dans ton cas ton identifiant RACF est configuré avec la valeur NUMBER ON ou STD)...
haugure est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/09/2012, 14h56   #3
bernard59139
Membre émérite
 
Avatar de bernard59139
 
Administrateur de base de données
Inscription : octobre 2006
Messages : 600
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Administrateur de base de données

Informations forums :
Inscription : octobre 2006
Messages : 600
Points : 893
Points : 893
bonjour

Si tu as des "NUM" en sortie, c'est que les "NUM" sont présents dans le fichier en entrée.

la solution ==> supprimer les NUM dans le fichier en entrée.
bernard59139 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/09/2012, 15h07   #4
Julien Del
Nouveau Membre du Club
 
Développeur COBOL
Inscription : mai 2009
Messages : 29
Détails du profil
Informations personnelles :
Âge : 39
Localisation : France, Paris (Île de France)

Informations professionnelles :
Activité : Développeur COBOL
Secteur : Finance

Informations forums :
Inscription : mai 2009
Messages : 29
Points : 29
Points : 29
Citation:
Envoyé par bernard59139 Voir le message
Si tu as des "NUM" en sortie, c'est que les "NUM" sont présents dans le fichier en entrée.
mais quel couillon je suis!!
J'ai honte mais j'ai honte

Mon JCL est en NUMBER ON donc effectivement j'avais des nombres à droite de mon SYSUT1
mais comme l'écran ne va que de des colonnes 1 à 72...

Humm, topic résolu alors, oupss
Julien Del est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Cette discussion est résolue.
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 22h15.


 
 
 
 
Partenaires

Hébergement Web