02.07.2013 Views

Type III C lass A Program

Type III C lass A Program

Type III C lass A Program

SHOW MORE
SHOW LESS

Create successful ePaper yourself

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

exit was specified in the user's program .•<br />

Example:<br />

The program below uses CALL DEFINE to<br />

sequentially and DSRN4 directly.<br />

10<br />

NUM=l<br />

J=l<br />

CALL DEFINE(2,·X<br />

CALL DEFINE(q,·ABC<br />

READ(4,10) K<br />

WRITE(6,10) K<br />

WRITE(2,10) K<br />

FORMAT(1H ,1Q)<br />

NUM=3<br />

J=2<br />

READ (4,10) K<br />

WRITE (6,10) R<br />

WRITE (2 .. 10) K<br />

NUM=2<br />

READ(4,10) K<br />

J=3<br />

WRITE(6,10) 1<<br />

WRITE (2,10) 1<<br />

STOP<br />

END<br />

DEFINE<br />

access DSRN2<br />

','Y ',J,80)<br />

','DEFGHIJK',NUM,80)<br />

441

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

Saved successfully!

Ooh no, something went wrong!