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
pour l'utiliser:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
- 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
Partager