AS400遇到的一些问题和解决办法

1.没有权限进入distribution directory

wrklnk 'QDLS\'  

 >User not enrolled in system distribution directory.

Selection or command                                                     

===> ADDDIRE USRID(USERID SYSNAME) USRD(DESCRIPTION) USER(USRPROFILE)   

F3=Exit   F4=Prompt   F9=Retrieve   F12=Cancel                           

User ID and address already exists in the system distribution directory.

创建distribution directory

CRTDIR DIR('/qdls/TEST/BACKUP')

没有权限进入某个distribution directory

Unfortunately (well as far as I know anyway), there is another place to look¡­ the iSeries NetServer disabled UserIDs.  The images below explain how to access a list of User Profiles that the system has disabled from accessing system resources over TCP/IP using
iSeries Navigator.

 1).Connect to your server through iSeries Navigator

 2).Expand Network

 3).Expand Servers

 4).Select TCP/IP

 5).Right-Click iSeries NetServer

 6).Select the UserIDs that you would like to re-enable

 7).Click the [Enable User ID] button

unable to map a drive to the IFS

WIN7有可能是Policy的问题

Local Security Policy -> Security Settings -> Local Policies -> Security Options

Network security:LAN Manager authentication level - Send LM & NTLM - use NTLMv2 session security if negotiated

Microsoft network server:Digitally sign communicatioins(always)  - Disabled

2.SQL太长，放文本里执行

RUNSQLSTM SRCFILE(SRCPF/TESTLIB) SRCMBR(TESTSQL) NAMING(*SQL)

3.用jdbc连接AS400的时候会需要用到database name

WRKRDBDIRE

4.查看当前AS400的版本

DSPSFWRSC

 (Display Software Resources)

按F11看 5722999 的 Release 版本   VXRXM0 LXX

5.使用CPYFRMIMPF　upload数据到iSeries的时候如果是CSV,字段包含:使得导入后数据会错误，可以使用TXT文本

 ===> CPYFRMIMPF FROMSTMF("/qdls/TEST.CSV") TOFILE(TESTLIB/TESTPF) MBROPT(*ADD) RCDDLM(*CRLF) STRDLM(*NONE) FLDDLM(',') 

 ===> CPYFRMIMPF FROMSTMF('QDLS/TEST.txt') TOFILE(TESTLIB/TESTPF) MBROPT(*ADD) RCDDLM(*CRLF) STRDLM(*NONE) FLDDLM(*TAB) RPLNULL

VAL(*FLDDFT)                                                                        

 

6.DUMP的使用

free格式是

dump 'test1';

标准格式是

c     'test1'       dump     

要确保H上面有DEBUG参数才生效

H DEBUG

7.全部用户的spool file

 WRKSPLF SELECT(*all)

 全部用户的joblog

 WRKSPLF SELECT(*ALL *ALL *ALL *ALL *ALL QPJOBLOG) 

 某个用户

WRKSPLF SELECT(USER)

某个用户的某个batch job

WRKSPLF SELECT(USER *ALL *ALL USERJOB)

8.查看LF的source位置

DSPOBJD

9.FTP

ftp 'ipaddress'

>BIN

>NAMEFMT 0

>quo site namefmt 1

>GET TESTSRCPF/TESTLIB TESTSRCPF/TESTLIB2 (REPLACE

With FTP you can use the IFS structure in the FTP script.

For example:

Quote site namefmt 1

 Cd /tmp

 Lcd /localdir

 Put something.

10.查看MSGF里面的全部Message

DSPMSGD RANGE(*ALL) MSGF(TESTLIB/MSGF) DETAIL(*BASIC) OUTPUT(*PRINT)

放在PF中

DSPMSGD RANGE(*ALL) MSGF(HR2000/HRMSG) DETAIL(*BASIC) OUTPUT(*PRINT)

CRTPF FILE(TESTLIB/MSGPF) RCDLEN(200) 

CPYSPLF FILE(QPMSGD) TOFILE(TESTLIB/MSGPF) SPLNBR(1)

11.Debug submit出来的job

1). 以HOLD(*YES)参数提交JOB 到QBATCH JOB 中，让JOB 暂时挂起；

2). 使用WRKSBMJOB 查看所提交的JOB 的以下3 个参数值：

*Job id

 *User Name

 *Job Number

 3). 执行STRSRVJOB，填入第2 步骤获得的3 个参数进行QBATCH JOB 服务过程；(如果在同一个作业中进行，就不用填这3个参数了，道理和CPYSPLF一样，我自己的理解)

4). 执行STRDBG 开始DEBUG；

5). 利用F21 键切换到命令行，在命令行执行WRKSBMJOB，使用6=Release 释放挂起的

 第1 步骤提交的JOB，然后系统允许你按F10 输入DEBUG 命令（注意：不要键入执行，

 否则在设立断点之前键入执行，程序就会运行，因而无法进行debug 断点设置）；

6). 在OS/400 命令行窗口；执行DSPMODSRC 后，可通过F6 设置断点；然后按F3 退出，

 再按F12 退出命令行；

7). 键入执行释放挂起的JOB；程序将在断点中停留；可以使用交互式DEBUG 使用DEBUG

命令进行处理

8). 一旦程序或者JOB 结束，使用ENDDBG 和ENDSRVJOB 结束操作。

HLDJOBQ JOBQ(QGPL/QBATCH) 

submit job

STRSRVJOB JOB(012345/USER/USERJOB)     

STRDBG PGM(TESTPGM) UPDPROD(*YES)  

F21=Command entry

RLSJOBQ JOBQ(QGPL/QBATCH) 

F10

dspmodsrc

SET BREAKPOINT...

F3

F12

enter

debug...

ENDDBG

ENDSRVJOB

12.RPG语言

================

Z-ADD   ：数值型的附值语句（Z-ADD A   B相当于 B=A）

MOVEL ：移动数据语句 MOVEL A   B 是把A的值从左边开始送到B中。

MOVE： 功能于MOVEL类似，区别在于它是从右边开始传送。

MOVEL (P)：MOVEL和MOVE的操作在把短的传到长的中时，并不会覆盖其余的部分，因此，  

        加一个扩展功能用的P来表明操作要覆盖其余的部分。

SUB：数值类型的减操作

ADD：加操作

MULT：乘操作

DIV：除操作

MVR：除之后的取余操作

BEGSR：子过程开始

ENDSR：子过程结束

EXSR： 调用子过程

EXFMT：画面记录的显示操作命令

WRITE：写文件记录的操作

UPDAT：更新文件当前记录

DELET：删除文件当前记录

READ：读文件操作（顺序读）

READE：按键值顺序读文件的下一条

READP：向前读文件的一条记录

REDPE：按键值向前读文件的一条记录

CHAIN：随机检索与键值相同的记录

SETLL：文件指针定位操作，所停的位置在小于等于指定键值的前面。

SETGT：文件指针定位操作，所停的位置在等于大于指定键值的后面。

DOWXX (XX=GT, LT, EQ, LE, GE)：当循环（XX=大于，小于，等于，小于等于，大于等于）

DOUXX (XX=GT, LT, EQ, LE, GE)：直到循环（XX=大于，小于，等于，小于等于，大于等于）

ITER：跳出本次循环（DO），进行下一次循环

LEAVE：结束整个循环，进行循环下面的语句

IFXX (XX=GT, LT, EQ, LE, GE)：条件判断（XX=大于，小于，等于，小于等于，大于等于）

SELEC：分支条件开始语句

WHXX (XX=GT, LT, EQ, LE, GE)：各个分支的条件判断语句（XX=大于，小于，等于，小于等 于，大于等于）

OTHER：SELECT部分中所有WHEN条件均不成立时执行的部分（可以省略）

ENDXX (IF, DO, SL)：循环和分支结构的结束标志语句。

SETON/OFF：将指示器的值设置为 1或 0

PLIST：参数列表名称的定义

PARM：各个参数的定义

KLIST：键值列表名称的定义

KFLD：键值中的各个键域的定义。

CLEAR：清除某个字段或数据域的值。

TIME：取得系统当前的日期或时间

================

ITER：跳出本次循环（DO），进行下一次循环

LEAVE：结束整个循环，进行循环下面的语句

================

READ：读文件操作（顺序读）

READE：按键值顺序读文件的下一条

READP：向前读文件的一条记录

REDPE：按键值向前读文件的一条记录

CHAIN：随机检索与键值相同的记录

SETLL：文件指针定位操作，所停的位置在小于等
4000
于指定键值的前面。

SETGT：文件指针定位操作，所停的位置在等于大于指定键值的后面。

================

13.submit了job后发现status是JOBQ,停住不动

WRKJOBQ QGPL/TESTJOBQ

会发现状态是RLS，正常是RLS/SBS,说明这个JOBQ没有attach去SBS

dspsbsd sbsd(qbatch)

   6. Job queue entries 

可以show出这个subsystem下attach的所有jobq

ADDJOBQE SBSD(QBATCH) JOBQ(QGPL/TESTJOBQ) SEQNBR(17)

这样这个JOBQ挂起的JOB都继续进行，跑完然后是OUTQ status

Adding A Job Queue To A Batch Subsystem
http://www.itjungle.com/fhg/fhg051513-story03.html

Add Job Queue Entry (ADDJOBQE)
http://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/cl/addjobqe.htm

14.Submit Job的时候报错No authority to message queue

wrkobj username

发现同时在QSYS和QUSRSYS上有同名的*MSGQ,当submit job的时候优先用QSYS上的，但自己的profile却没有权限
果断把QSYS上的rename掉，之后就又可以愉快地submit job了

15.do a SQL SELECT on a table that has more than one member and I want do specify the name of the member.

create alias  mylib/myalias   for testlib/testfile(testmem)

select * from mylib/myalias    

drop alias  mylib/myalias  

Creating and using ALIAS names
http://www.ibm.com/support/knowledgecenter/ssw_i5_54/sqlp/rbafycreatingalias.htm

16.WRKJOBSCDE - Work with Job Schedule Entries