IMPLICIT INTEGER*4 (A-Z) CHARACTER*15 VALUE(5),QUEUE_NAME CHARACTER*2 TEMP OPEN(UNIT=1,FILE='PRINTABLE.DAT',STATUS='UNKNOWN', 1 ORGANIZATION='INDEXED',ACCESS='KEYED',FORM='UNFORMATTED', 1 RECL=80,KEY=(1:15:CHARACTER),IOSTAT=IOS1) WRITE(5,100) 100 FORMAT(T5,' ENTER QUEUE NAME') READ(5,101)QUEUE_NAME 101 FORMAT(1A15) C C--- READ FILE FOR ALREADY EXISTING RECORD C READ(UNIT=1,KEY=QUEUE_NAME,KEYID=0,IOSTAT=IOS1)(VALUE(I),I=1,5) IF ( IOS1 .EQ. 36 ) THEN C C--- NEW PRINT QUEUE, HAVE USER ENTER CHOICES C VALUE(1) = QUEUE_NAME DO 155 IVAL=2,5 WRITE(5,133)IVAL READ(5,134)TEMP VALUE(IVAL) = QUEUE_NAME(1:1)//TEMP 155 CONTINUE WRITE(1)(VALUE(IVAL),IVAL=1,5) END IF IF ( IOS1 .EQ. 0 ) THEN C C--- ALREADY EXISTING RECORD MODIFY IT C WRITE(5,200)QUEUE_NAME,(VALUE(IVAL),IVAL=1,5) DO 156 IVAL=2,5 WRITE(5,133)IVAL READ(5,134)TEMP VALUE(IVAL) = QUEUE_NAME(1:1)//TEMP 156 CONTINUE REWRITE(1)(VALUE(IVAL),IVAL=1,5) END IF 133 FORMAT('$','ENTER CHOICE ',I4,':',$) 134 FORMAT(1A2) 200 FORMAT('1',//,80('*'),//,T25,' CHOICE LIST FOR QUEUE - ',1A15,//, 1 ' ',5(1A15)) END