i am trying to write différent lines in two different dataset : FICH2 and FICH3
but i have nothing in FICH3 et in FICH2 i have the content of FICH1.
I would like to write DS. in FICH2 and ES in FICH3
/*REXX*/
TRACE I
"EXECIO * DISKR FICH1(FINIS STEM DS."
NBRCJOB = 0
NBRSCAN = 0
DO I = 1 TO DS.0
INDJOB = INDEX(DS.I,' JOB ')
IF INDJOB <> 0
THEN DO
MOTJOB = WORD(DS.I,2)
INDJOB1 = INDEX(MOTJOB,'JOB')
IF INDJOB1 <> 0
THEN DO
INDJOB2 = INDEX(DS.I,'//*')
INDJOB3 = INDEX(DS.I,'//')
IF (INDJOB2 <> 1 & INDJOB3 = 1)
THEN DO
QUEUE DS.I
NBRCJOB = NBRCJOB + 1
END
END
END
INDSCAN = INDEX(DS.I,'TYPRUN=SCAN')
IF INDSCAN <> 0 THEN
DO
ES.I = DS.I
QUEUE ES.I
NBRSCAN = NBRSCAN + 1
END
END
SAY'NOMBRE DE CARTE JOB = 'NBRCJOB
SAY'NOMBRE DE TYPRUN = 'NBRSCAN
QUEUE ""
"EXECIO * DISKW FICH2(STEM DS. FINIS"
"EXECIO * DISKW FICH3(STEM ES. FINIS"
EXIT;
Thank's for your help
