【AS/400】Qshell之03：EDTF文本编辑器

EDTF是一个简单的文本编辑器，它可以编辑IFS下的stream files。当然你可以不用EDTF，可以使用别的文本编辑器在你的pc上，然后ftp到AS/400上。

启动EDTF

使用CL命令EDTF来启动文本编辑器。此命令有三个参数。如图

参数	描述
STMF	在IFS下的stream files名字，如果没有会产生。名字应该包括路径。如/home/c210408/case.qsh
FILE	数据文件名，qualified格式为lib/file
MBR	数据文件的member名

此命令只能从CL命令行运行，不能在Qshell命令行下运行。你可以在Qshell下按F21进入CL命令行。。

Qshel的脚本可以存在数据文件中（与rpgle一样），但是当存在IFS下的话会运行的比较快些。

图1是进入EDTF的画面，和SEU有点类似，但比SEU要少些功能。。

Edit File: /home/c210408/case01.qsh                                                           
Record :        1   of       2 by 10                      Column :    1     59 by 126         
Control :                                                                                     
CMD ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8..
     ************Beginning of data**************              
     #!/bin/qsh                                                             
     print "Hello Qshell!"                                                

     ************End of Data********************                             

 

stream files练习

• 首先要有自己的Directory，可以使用命令CRTDIR, MKDIR或者MD来创建自己的Directory。如mkdir '/home/java'。 其实你已经有自己的Home directory了，你可以使用命令DSPUSRPRF查看，在显示的最后。
• 创建stream file，你可以先设定当前的Directory，然后在创建stream file；如cd ‘/home/c210408’        edtf ‘case01.qsh’；或者直接用EDTF ‘/home/c210408/case01.qsh’
• 然后输入经典的hello world脚本。如上图1
• 运行。进入Qshell。在shell命令行上执行./case01.qsh。你会发现没有权限执行。你可用chmod  u+x  case01.qsh修改执行权限。

                                                        QSH Command Entry    
  $                                                                          
> pwd                                                                        
  /home/C210408                                                              
  $                                                                          
> ls                                                                         
  Java            ch2_test.dat    helloworld      perl                       
  MBFSRR10        hello.pdf       littlepgm.com   zip                        
  case01.qsh      hello.qsh       mfgapps                                    
  $                                                                          
> chmod  u+x  case01.qsh                                                     
  $                                                                          
> ./case01.qsh                                                               
  Hello Qshell!                                                              
  $                                                                          
===>