[UNLOAD] Commande à définir .. [Résolu]

[Antichoc]

Salut à tous,

Quelqu'un pourrait-il m'indiquer comment fonctionne l'unload ...

En effet, je travaille sur un environnement mainframe avec l'interface TSO/ISPF contenant des utilitaire DB2. Seulement, je ne connais pas la fonction de l'UNLOAD, c'est à dire, les différents paramètres à renseigner.

Merci pour vos réponses !

[Luc Orient]

L'utilitaire UNLOAD dans DB2 for z/OS permet d'écrire les lignes contenues dans une table dans un fichier séquentiel ...

cf.
http://publibz.boulder.ibm.com/cgi-b...20050720160716

[Antichoc]

Merci, cependant, je n'ai pas accès à cet utilitaire pour des raisons inconnues (administration technique indépendante)

Je me contente d'un JCL mais ce dernier ne fonctionne pas, le step LDORCOL est en code retour 8 mais je n'arrive pas à situer l'erreur :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
//TEMPLATL JOB (DB2,317,TSIN),'LOADTSIN',TIME=240,REGION=8192K,
//***      RESTART=LDORBNC,
//         CLASS=T,MSGCLASS=T,NOTIFY=TEMPLAT
//RMT1 OUTPUT CLASS=*,DEST=RMT1,JESDS=ALL
//*
//*   RECHARGEMENT (AJOUT)
//* JOBLIB  DD  DISP=SHR,DSN=TINT.DB2.SDSNLOAD
//JOBLIB  DD  DISP=SHR,DSN=SYS1.DSN.SDSNLOAD
//TERM   EXEC  PGM=IKJEFT01,COND=(EVEN)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN  DD *
DSN S(TINT)
-TERM UTILITY(LDORCOLB)
-TERM UTILITY(LDORBNCB)
END
/*
//*---------------------------------------------------------------------
//* ENTRER ICI:
//*     * L' ENVIRONNEMENT
// SET ENV=TSIN
//*     * OU EST LE FICHIER DE LA TABLE A CHARGER
// SET W2LOAD=TSIN.TEMPLAT.WORK
//*     * LE NOM DE LA TABLE A CHARGER,
// SET D2LOAD=TSIN.TEMPLAT.LOAD
//*     * LE NOM DE LA TABLE A CHARGER,
// SET T2LOAD=TBRVIDE
//*
//*  /§ç  VÉRIFIER AUSSI LE  DD "SYSREC00"  /§ç
//*---------------------------------------------------------------------
//*
//LDORCOL  EXEC PGM=DSNUTILB,PARM='TINT,LDORCOLB'
//SYSPRINT DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(50,50))
//SORTOUT  DD UNIT=SYSDA,SPACE=(CYL,(50,50))
//SYSREC00 DD DSN=&D2LOAD,
//            DISP=SHR
//*
//SYSDISC  DD DSN=&W2LOAD..SYSDISC,
//            SPACE=(TRK,(60,90),RLSE),
//            UNIT=SYSDA,DISP=(NEW,DELETE,DELETE)
//SYSERR   DD DSN=&W2LOAD..SYSERR,
//            SPACE=(TRK,(60,90),RLSE),
//            UNIT=SYSDA,DISP=(NEW,DELETE,DELETE)
//SYSMAP   DD DSN=&W2LOAD..SYSMAP,
//            SPACE=(CYL,(2,2),RLSE),
//            UNIT=SYSDA,DISP=(NEW,DELETE,DELETE)
//SYSIN    DD *
  LOAD DATA RESUME YES LOG YES INDDN TSIN.TEMPLAT.LOAD
        INTO TABLE TSIN.TBRVIDE
/*
//TERMF  EXEC  PGM=IKJEFT01,COND=(EVEN)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN  DD *
DSN S(TINT)
-TERM UTILITY(LDORCOLB)
-TERM UTILITY(LDORBNCB)
END
/*
//*

Merci d'avance

[Luc Orient]

Envoyé par Antichoc

Merci, cependant, je n'ai pas accès à cet utilitaire pour des raisons inconnues (administration technique indépendante)

Là je ne comprends pas vraiment mais bon ...

Je me contente d'un JCL mais ce dernier ne fonctionne pas, le step LDORCOL est en code retour 8 mais je n'arrive pas à situer l'erreur :
...
Merci d'avance

En l'occurence c'est un LOAD, c'est à dire l'inverse de l'UNLOAD ...
Le RETURN CODE à 8 n'est pas suffisant pour analyser l'erreur, il faut voir les messages dans le fichier SYSPRINT.

[Antichoc]

Désolé pour la non réponse.

En ce qui concerne l'utilitaire LOAD/UNLOAD, il n'est pas activé par notre client sur l'environnement mainframe.

Deplus, le JCL fonctionne parfaitement. Après une recherche dans les résultats de compilation, il n'y avait qu'une erreur 8 NON EXPLIQUEE. Cependant, il s'avère que c'est une erreur d'autorisation du LOAD/UNLOAD qui ne nous est pas accordée. Ce dernier a été réalisé par un administrateur du client.

Merci pour vos réponses

[Antichoc]

Juste pour info, quelqu'un sait à quoi sert l'utilitaire DB2 "TERM UTIL" qui ponctue les LOAD ?

[Luc Orient]

Envoyé par Antichoc

Juste pour info, quelqu'un sait à quoi sert l'utilitaire DB2 "TERM UTIL" qui ponctue les LOAD ?

Lorsqu'un utilitaire a commencé à s'exécuter et puis "plante" pour une raison quelconque DB2 maintient un contexte et marque les objets touchés par l'utilitaire avec un statut particulier (" UT " ).

La commande TERM (c'est une commande et pas un utilitaire) permet de détruire ce contexte et de lever cet état restreint. Par contre, il faut être prudent avec ce genre d'action, puisqu'on s'interdit toute possibilité de reprise sur l'utilitaire lui-même.

Quant à passer la commande sur un utilitaire en cours d'exécution, j'avoue que je n'ai jamais essayé ...
Je pense que les résultats risquent d'être imprévisibles ....

Coder sytématiquement cette commande dans un JCL me semble discutable, sauf peut être pour un LOAD REPLACE et qu'on accepte de recommencer au début ...