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:文件指针定位操作,所停的位置在小于等于指定键值的前面。
SETGT:文件指针定位操作,所停的位置在等于大于指定键值的后面。
================
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却没有权限
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