Portage JCL MVS SORT sous UNIX/Linux/Windows avec XSM

Challenges :

  • Vous souhaitez migrer, décentraliser vers des systèmes ouverts vos opérations de tris.
  • Vous vous demandez comment les steps de tris des JCL MVS vont fonctionner dans des environnements UNIX ou Windows.
  • Vous recherchez des fonctionnalités équivalentes, des performances égales ou supérieures, et une réduction des couts.

Solution :

XSM utilise une syntaxe et des mots clés "à la IBM". C'est le tri parfait pour faciliter les migrations batch MVS vers Systèmes Ouverts.

Lorsque les JCLs d'origine sont convertis avec notre Automate de Conversion MVS UNIX, les steps de tris fonctionnent immédiatement sans aucune modification de syntaxe.

L'exemple suivant illustre l'ordre SORT FIELDS équivalent, utilisant exactement la même "SYSIN".

Step de tri/fusion typique d'un JCL MVS :


//**********************************************************************
//* STEP      : SORT MERGE INF712 INF713                               *
//**********************************************************************
//INP1234  EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//* Two input files, MVS Catalog will find out RECFM and LRECL:
//SORTIN   DD DSN=PRD123.CLIENT.INF712,DISP=SHR
//         DD DSN=PRD123.CLIENT.INF713,DISP=SHR
//* One output file, we specify RECFM,LRECL:
//SORTOUT  DD DSN=PRD123.CLIENT.INF714,DISP=(,CATLG,DELETE),
//         UNIT=SYSDV,SPACE=(CYL,(3,3),RLSE),VOL=SER=B80WKC,
//         DCB=(RECFM=FB,LRECL=205,BLKSIZE=0)
//* Sort keys:
//SYSIN    DD *
SORT FIELDS=(15,1,CH,A,
              5,5,CH,A,
             10,5,CH,A,
            201,4,PD,A)
EXCLUDE COND=(30,2,CH,EQ,C'L1',AND,
              32,1,CH,EQ,C'1',
              OR,
              30,2,CH,EQ,C'L2',AND,
              32,1,CH,EQ,C'2')
/*

Fichier parametre XSM équivalent sous UNIX/Linux/Windows :


* 2 fichiers en entrée :
INPFIL    PRD123.CLIENT.INF712
INPFIL    PRD123.CLIENT.INF713
* 1 fichier en sortie : 
OUTFIL    PRD123.CLIENT.INF714
* Comme il n'y a pas de Catalogue sous UNIX/Win, on doit spécifier le RECFM, LRECL en entrée :
RECORD    RECFM=F,LRECL=205
* Sort keys, on utilise la carte SYSIN telle qu'elle :
SORT FIELDS=(15,1,CH,A,
              5,5,CH,A,
             10,5,CH,A,
            201,4,PD,A)
EXCLUDE COND=(30,2,CH,EQ,C'L1',AND,
              32,1,CH,EQ,C'1',
              OR,
              30,2,CH,EQ,C'L2',AND,
              32,1,CH,EQ,C'2')
Et voila !

XSM supporte les enregistrements de longueur fixe/variable contenant du binaire et du "Décimal Packé" (cf. Fonctionnalités)

Regardez la syntaxe complète de XSM.

Puis téléchargez librement XSM pour l'évaluer !