title: CLLE SNDRCVF command not allowed
body: <p>I am trying to compile this piece of CL code using Rational Series but keep getting error. </p>
  
  <p>This is my CL code: </p>
  
  <pre><code>         PGM
  
           DCLF       FILE(LAB4DF)
  
           SNDRCVF    RCDFMT(RECORD1) /* send, recieve file */
           DOWHILE    (&amp;IN03 = '0')
              SELECT
                 WHEN       (&amp;USERINPUT = '1' *OR &amp;USERINPUT = '01') CALLSUBR   OPTION1
                 OTHERWISE  DO
                    *IN03      = '1'
                 ENDDO
              ENDSELECT
           ENDDO
  
           SUBR       OPTION1
              DSPLIBL
           ENDSUBR
  
           ENDPGM
  </code></pre>
  
  <p>And this is my DSPF code</p>
  
  <pre><code> A          R RECORD1
   A                                  1 38'LAB 4'
   A                                  3  3'Please select one of the following-
   A                                       options:'
   A                                  6 11'3.  Maximum Invalid Signon Attempt-
   A                                      s allowed'
   A                                  8 11'5.  Run Instructor''s Insurance Pr-
   A                                      ogram'
   A                                  5 11'2.  Signed on User''s Message Queu-
   A                                      e'
   A                                  1  3'Yathavan Parameshwaran'
   A                                  7 11'4.  Initial number of active jobs -
   A                                      for storage allocation'
   A                                  4 11'1.  Previous sign on by signed on -
   A                                      user'
   A                                 14 11'F3 = Exit'
   A                                 14 31'F21 = Command Line'
   A                                  2 70TIME
   A                                  1 72DATE
   A                                  9 11'Option: '
   A            USERINPUT      2   B  9 19
   A  91                                  DSPATR(RI)
   A  92                                  DSPATR(PC)
   A            MSGTXT1       70   O 11 11
   A            MSGTXT2       70   O 12 11 
  </code></pre>
  
  <p>Is there a problem with my CL code or DSPF code?</p>