Hello List,
Years ago, We wrote a lot of Assembler programs and unfortunattely lost all of
them.
Now, We try write a sample program, and need know, if someone, have a FSWRITE
sample program, ans how get the date of the system.
My program is something like this :
CPUVM1 CSECT
USING CPUVM1,3
LR 3,15
ST 14,SAVE14
MVC FSCBI+16(8),=CL8'1608 '
MVC FSCBO+16(8),=CL8'1608 '
FSOPEN FSCB=FSCBI
*
LEITURA FSREAD FSCB=FSCBI,ERROR=FINAL
WRTERM INAREA,80
CLC INAREA+19(8),=CL8'AVGPROC-'
BNE LEITURA
BAL 10,GRAVA
MVC INAREA,BRANCOS
B LEITURA
*
FINAL C 15,=F'12'
BE SAI
WRTERM 'ERRO NA LEITURA DO ARQUIVO'
*
SAI L 14,SAVE14
SR 15,15
BR 14
*
GRAVA MVC OUTAREA,INAREA
LA 7,OUTAREA
FSWRITE FSCB=FSCBO,RECNO=(7),ERROR=ERROGRAV
MVC OUTAREA,BRANCOS
BR 10
*
ERROGRAV WRTERM 'ERRO NA GRAVACAO DO ARQUIVO'
B SAI
*
SAVE14 DS F
INAREA DS CL85
OUTAREA DS CL85
BRANCOS DC CL85' '
FSCBI FSCB 'CPUVM ........ Z',BUFFER=INAREA,RECFM=V
FSCBO FSCB 'CPUVM ........ A',BUFFER=OUTAREA,RECFM=V
FSCBD
END CPUVM1
The sample program above, had a error when try use the FSWRITE (not error, but
rc <> 0).
Any help please ?
Thanks
Sergio Lima Costa
Sao Paulo - Brazil
