能转换成free格式吗？

亿城雪

C                   MOVEL     S@OUTDS       P@PARM          511

leason

不太明白楼主的意思..

liu__jiang

楼主没说都分别是什么类型的，如果是这句话在整个主程序中，而就这句没办法的话，很简单的办法就是把这句话做成SUBROUTINE，如可以做成:
***********
exsr a@
************
C    a@          BEGSR
C                   MOVEL     S@OUTDS       P@PARM          511
C                   ENDSR

utirei

目前还没有用过用户定义格式。
cl算是free格式吗？

wildfish

d p@parm  511
/free
  eval  P@PARM=S@OUTDS;
/end-free

liu__jiang

原帖由 wildfish 于 2005-12-1 13:03 发表
d p@parm  511
/free
  eval  P@PARM=S@OUTDS;
/end-free

如果P@PARM是字符而S@OUTDS是数字，EVAL这样就不行了，数字转换字符还好一点可以用%char，如果是字符转数字就麻烦了，定义的时候还要用OVERLAY。麻烦。

还有CL不是自由格式，不同的概念。
  dou exit;                     
    select;                     
      when code=*zero;           
        exsr sfl@;               
      when code<>*zero;         
        exsr query@;            
    endsl;                       
    if rrn>0;                    
      sfldsp='1';               
    else;                        
      sfldsp='0';               
    endif;                       
    sflctl='1';                  
      exfmt ctlsfl;              
      IF ADD='1';               
        EXSR ADD@;               
      ENDIF;                     
sflctl='0';                                
readc(e) dtasfl;  // 这里 (e) 起着重要作用
dou %eof;                                 
   select;                                 
     when tcode='i' or tcode='I';           
       exsr detail@;                        
     when tcode='c' or tcode='C';           
       exsr change@;                        
     when tcode='d' or tcode='D';           
       exsr delete@;                        
     other;                                 
       leave;                              
   endsl;                                   
readc dtasfl;                              
enddo;                                    
tcode=' ';                                 
     enddo;                                                         
  /end-free                                                         
C                   SETON                                        LR
  *********                                                         
这段就是我写的自由主程序。