Mange vil sikkert undre sig over, hvorfor i al videste verden man skulle finde på at eksekvere DFSORT under DSN-processoren. Og kan det overhovedet lade sig gøre? Svaret er JA og ideen er, at så kan man benytte SQL-kald i sine SORT-exits. Faktisk er ophavsmanden til denne uges tip Johnny Mossin. I praksis gør man sådan her:

//SORTDB2  EXEC PGM=IKJEFT01
//SYSIN    DD *
   OPTION COBEXIT=COB2
   MODS E15=(MYEXIT,160000,MODLIB,C)
   SORT FIELDS=COPY
/*
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=MY.UNSORTED.DATA,DISP=SHR
//SORTOUT  DD DSN=MY.SORTED.DATA,DISP=SHR
//MODLIB   DD DSN=MY.EXIT.LOADLIB,DISP=SHR
//SYSTSIN  DD *
   DSN SYSTEM(DB2)
   RUN PROGRAM(SORT) PLAN(MYPLAN)
   END
/*
//SYSTSPRT DD SYSOUT=*

Programmet MYEXIT skal være et ganske almindeligt COBOL-program, der selvfølgelig opfylder kravene til et SORT-exit, med SQL-kald i. DBRM'en behandles på samme måde som altid og packagen bindes ind i planen MYPLAN. Og så er den sådan set ikke længere. LOAD-modulet placeres i MY.EXIT.LOADLIB.

Hvis du vil vide mere om, hvordan man skriver SORT-exits eller hvad alle de snedige options til SORT betyder, så kan du læse mere i manualerne til DFSORT eller skrive til os. Vi har eksempler på lager.