17.08.2013 Views

Data Interfaces

Data Interfaces

Data Interfaces

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

MOVE: CARRID TO REC-CARRID,<br />

CONNID TO REC-CONNID,<br />

FLDATE TO REC-FLDATE,<br />

BOOKID TO REC-BOOKID,<br />

CUSTOMID TO REC-CUSTOMID.<br />

* Write field string to sequential file<br />

TRANSFER REC TO FILE.<br />

* List output<br />

WRITE: / REC-CARRID,<br />

/ REC-CONNID,<br />

/ REC-FLDATE,<br />

/ REC-BOOKID,<br />

/ REC-CUSTOMID.<br />

ULINE. SKIP.<br />

*D TEXT-001: 'Transfer data record to file:'<br />

WRITE: / TEXT-001, FILE.<br />

* Close the sequential file<br />

CLOSE DATASET FILE.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!