You can simply try reading the block file, divide the block into records
and write it down to another file as follows.
(mutatis mutandis)
USING IHADCB,3
LARL 3,INFCB
OPEN ((3),(INPUT)),MODE=31
lh 1,DCBLRECL
st 1,I_LRECL
MVC I_DSORG,DCBDSRG1
lh 1,DCBBLKSI
st 1,I_BLKL
MVC i_dcbrecfm,DCBRECFM
MVC SP_FLAG,TYPE_VB
TM DCBOFLGS,DCBOFOPN INPUT DS OPEN OK ?
jNO I_ERR02
CLI DCBDSRG1,DCBDSGPS PHIS SEQ?
jNE I_ERR03
TM DCBRECFM,DCBRECU FIX REC LGTH
JO INUND -------->>>>
TM DCBRECFM,DCBRECF FIX REC LGTH
JO INFIX
TM DCBRECFM,DCBRECV VAR REC LGTH
JO INVAR
J I_ERR04
INUND DS 0H
LA IOBUFF00LL
LARL 3,INFCB
GET (3),(7)
LH 1,DCBLRECL
STCM 1,15,IOBUFF00
MVC 2(2,7),DCBLRECL
BAL 8,DEBLOCK
J INUND
DEBLOCK DS 0H
L 5,IOBUFF00
LA 6,IOBUFF00LL
LA 7,0(3,6) . END BLOCCO
LOOP DS 0H
CR 6,7
JH END_EX
*
*
PUT .......
PUT .......
J LOOP
INFCB DCB DDNAME=INFCB,DSORG=PS,MACRF=(GM),DCBE=IDCBE, *
SYNAD=ERR007,EROPT=ACC,EXLST=EXIT
IDCBE DCBE EODAD=fine,BLKSIZE=0
**
IOBUFF00 DS F
IOBUFF00LL DS CL33000
** DSECT
DCBD DSORG=PO,DEVD=DA
IHADCBE
Aldo Crosio
tel: 051-4991812 /3488858416
fax: 051-6255762
CSE Consorzio Servizi Bancari
Società consortile a responsabilità limitata
Via Emilia n. 272
40068-San Lazzaro di Savena (BO)
Ai sensi del D.Lgs. 196/2003 si precisa che le informazioni contenute nel
presente messaggio, corredato dei relativi allegati, sono strettamente
riservate ed a uso esclusivo dei destinatari. Qualora Le fosse pervenuto per
errore, La invitiamo ad eliminarlo immediatamente, dandocene gentilmente
comunicazione. Grazie.
------------ *** ------------ *** ------------ *** ------------
