[CLOSED] Calling IBM Sort in a Focus session ( MVS CALL)

September 30, 2010, 10:37 AM

Bonjour,
I very much enjoy the automatic Call of External Sort by Focus for his own needs.
But, here, my point is to call The IBM Sort under Focus (MVS CALL) for other purposes than optimizing Table File.
SYSIN is the conflicting point between Focus and Sort. I Would enjoy Help, for instance as how to use DFSPARM and/or SORTCNTL instead of SYSIN , or any other hint to reach the goal...
I am close to this Goal ( SORT reads DFSPARM first, but keeps going With SYSIN. And Focus Syntax very much surprises the Sort )
Cordially
In a previous life, I had a tiny PL/1 Program that isolated Sysin from the Sort (It used SortCntl and not Sysin). But I'm not, now, supposed to developp PL/1 programs

 
 FOC0055:PROC OPTIONS(MAIN);                               
 DCL RETCOE BIN FIXED(31,0);                               
 DCL MAXSTOR                    BIN FIXED(31) INIT (0) ;   
 DCL PARM1 CHAR(0) ;                                       
 DCL PARM2 CHAR(5) INIT(' END ');                          
 DCL (PLISRTA,PLIRETC) BUILTIN;                            
 DCL (PLIDUMP) BUILTIN;                                    
 DCL (UNSPEC) BUILTIN;                                     
 UNSPEC(MAXSTOR) = '00000000'B !! UNSPEC('MAX') ;          
 CALL PLISRTA (PARM2,PARM1,MAXSTOR,RETCOE);                
 CALL PLIRETC(RETCOE);                                     
 END FOC0055;

This message has been edited. Last edited by: Kerry,