在AS400中,定义了PF或Physical File文件来存储数据。这些文件具有各种类型的字段,例如字符型、数字型等。但是,在数字型字段中,有时会出现数据填充错误的问题。例如,当一个字段定义为数字时,如果在该字段中输入了字母或其他非数字类型的字符,则会导致该字段的填充不正确。
为了解决此问题,可以使用DSPFD命令来检查文件的字段信息,可找出问题字段。例如,下面的示例代码:
DSPFD FILE(MYLIB/MYFILE) TYPE(*ATR)
可以使用CHGPF命令更改字段的属性,以确保只有数字可以输入。例如,下面的示例代码将将一个文件中的名为AMOUNT的字段定义为数字型,该字段可以在输入时接受9个数字:
CHGPF FILE(MYLIB/MYFILE) SRCFILE(MYLIB/QDDSSRC) SRCMBR(MYFILE)
DSPFFD FILE(MYLIB/MYFILE) OUTPUT(*OUTFILE) OUTFILE(MYLIB/FIELDRCD)
CPYF FROMFILE(MYLIB/FIELDRCD) TOFILE(MYLIB/AMOUNT) MBROPT(*ADD) SELECT((FLDNAME *EQ 'AMOUNT'))
然后将在该文件myfile中的AMOUNT字段中填充正确的数据。