dc. DO ERROR {errnum} c. Shows the DCL error messages for any HEX error. c. To exit, if no errnum was entered on the command line, enter c. a zero, or null, or ^Z ,c. c. -end.of.info- c. X character*80 cmd c.  CALL jjmesset( 6,1 ) c.  call jjcmd(cmd) L if(cmd.eq.' ') goto 300  if( cmd(1:2).eq.'%X' ) cmd = cmd(3:)  lcmd = jjlen(cmd) x decode( lcmd, 220, cmd ) ii 220 format(z) @ call jjmess(ii)  goto 9000 c. l300 continue C. 4 TYPE 310 310 FORMAT( '$(HEX) ERROR NUM=' )  READ( 5, 320 , ERR=9000 ) I ` IF( I.EQ.0 ) GOTO 9000 320 FORMAT( Z ) ( CALL jjmess( I ) GOTO 300 C. T 9000 CONTINUE END