0.039
λίγη rexx ,,
mari@pi mari@pi Πεμ. 22 Μαϊος. 2008 15:51 tags προγραμματισμός 0 views 5 σχόλια
/* rexx */
drop l.
"execio * diskr MYLIST (stem l. finis"
if rc ^= 0 then do
   say 'error in reading MYLIST file !!!'
   say 'rc='rc
   exit 1
end
drop nj.;j=0
j=j+1;nj.j="//MAI     JOB (000),ME,CLASS=C,MSGCLASS=X,"
J=J+1;NJ.J="//     ​​​​​   NOTIFY=ME,TYPRUN=SCAN,"​​​
j=j+1;nj.j="//     ​​​​​   MSGLEVEL=(1,1),REGIO​N=0​M,T​IME=1440;
j=j+1;nj.j="//**   UNLOAD PROS SUBMIT"
do l=2 to l.0
   j=j+1;nj.j="//STEP"l-1"  EXEC PGM=IKJEFT01,REGION=0M"
   j=j+1;nj.j="//SYSEXEC  DD DISP=SHR,DSN=A.V.ARSINST"
   j=j+1;nj.j="//SYSTSPRT DD SYSOUT=*"
   j=j+1;nj.j="//SYSTSIN  DD *"
   j=j+1;nj.j="ARSSHL /usr/lpp/ars/bin/arsadmin +"
   j=j+1;nj.j=" unload -h ARCH -g +"
   j=j+1;nj.j="'"strip(substr(l.1, 1, 71))"' +"
   j=j+1;nj.j=" -u admin -p password -L +"
   j=j+1;nj.j=word(l.l, 1)
   j=j+1;nj.j="//STDENV DD *"
   j=j+1;nj.j="_BPX_SHAREAS=YES"
   j=j+1;nj.j="_BPX_BATCH_SPAWN=YES"
   j=j+1;nj.j="/*"
   j=j+1;nj.j="//OSHOUT1 DD SYSOUT=*,DCB=(RECFM=F,LRECL=255)"
   j=j+1;nj.j="//* "
end
nj.0=j
"execio * diskw OUTF (stem nj. finis"
if rc ^= 0 then do
   say 'error in writing OUTf file !!!'
   say 'rc='rc
   exit 2
end
/*
 NEWSTACK
 DO j=1 TO Nj.0
     QUEUE nj.j
 END
 QUEUE " "
'SUBMIT *' */
exit 0
σχόλια
από thk thk 2008-05-22 17:18
say 'I quit' tyrannosayrus rex. Το jurrassic park της πληροφορικής.
από mari@pi mari@pi 2008-05-22 19:11
τα ανεβάζω γιατί όταν χρειάστηκε να τα γράψω και ρώτησα το γκουγκλ μ΄έφτησε,,
από thk thk 2008-05-22 19:16
ναι αλλά δεν μας λες τι κάνει - δε μας λες..
από mari@pi mari@pi 2008-05-22 20:00
σας λέω τι κάνει στο πεδίο περιγραφή αλλά μπορεί να είναι πιο εύκολο να βρείτε τι κάνει, από το να βρείτε που στο καλό φαίνεται αυτή η περιγραφή που πληκτρολογούσα τόοοση ώρα γαμώτο,
από mari@pi mari@pi 2008-05-29 18:02
diy για πάνταααα (για τα πάνταααα ,,,?,,?