Decoupage SYSIN pour traitement [Résolu]

[coderetour0]

bonjour,

peut-être avez vous déjà rencontré ce problème : vous devez soumettre un job mais la sysin est trop longue (nb de lignes non supporté)

alors comment faire ?

je vous propose cette macro ISREDIT a appliquer sur le fichier SYSIN

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
/* rexx -------------------------------------------------------------*/
'isredit macro (clipb)'                                                
                                                                       
saut = 5  /* nb d'appui sur PF8 en mode page */                        
                                                                       
'isredit paste' clipb 'before .zfirst keep'                            
do forever                                                             
  do saut                                                              
    'isredit down page'                                                
  end                                                                  
  if rc=0 then do                                                      
    'isredit (r) = display_lines'                                      
    'isredit label' r '= .paste'                                       
    'isredit paste' clipb 'before .paste keep'                         
  end                                                                  
  else leave                                                           
end

pour l'utiliser:

• faire un CUT jclname REPLACE de tout le job
• se mettre en edit sur la sysin et taper en ligne de commande le nom de la macro suivi de jclname

il suffira au final de faire SUB