![]() |
XSM : eXtended Sort/Merge utility
by Henri Henault |
|
|
Portage JCL MVS SORT sous UNIX/Linux/Win avec XSM
Challenges :
Solution :XSM 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/Windows :* Two input files: INPFIL PRD123.CLIENT.INF712 INPFIL PRD123.CLIENT.INF713 * One output file: OUTFIL PRD123.CLIENT.INF714 * There is no Catalog on UNIX/Win, so we must specify input and output RECFM,LRECL: 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é". Regardez la syntaxe complète de XSM.
Puis téléchargez librement XSM pour l'évaluer !
|
| Contact | Company Info | Site map | Trademarks | Design Stéphane HENAULT © HH&S 1994-2010 | ![]() |