狼翔天地

在工作上遇到一個執行工作回應一個訊息為檔案已滿的情況下

判斷應為之前對檔案屬性設定過小所造成，所以需要去修改檔案屬性

要修改檔案屬性前要先看此檔案是否有被使用(lock)，如果有是不能修改的因此查看的語法如下：

\WRKOBJLCK OBJ(SFMST/SF13) OBJTYPE(*FILE)

確定沒有任何人使用時再用以下語法去修改

CHGPF+F4

Physical file  . . . . . . . . . > SF13          Name                        

  Library  . . . . . . . . . . . >   SFMST       Name, *LIBL, *CURLIB        

System . . . . . . . . . . . . .   *LCL          *LCL, *RMT, *FILETYPE       

Source file  . . . . . . . . . .   *NONE         Name, *NONE                 

  Library  . . . . . . . . . . .                 Name, *LIBL, *CURLIB        

Expiration date for member . . .   *NONE         Date, *SAME, *NONE          

Maximum members  . . . . . . . .   1             Number, *SAME, *NOMAX       

Access path size . . . . . . . .   *MAX1TB       *SAME, *MAX4GB, *MAX1TB     

Access path maintenance  . . . .   *IMMED        *SAME, *IMMED, *REBLD, *DLY 

Access path recovery . . . . . .   *AFTIPL       *SAME, *NO, *AFTIPL, *IPL   

Force keyed access path  . . . .   *NO           *SAME, *NO, *YES            

Member size:                                                                 

  Initial number of records  . .   *NOMAX        1-2147483646, *NOMAX, *SAME 

  Increment number of records  .                 0-32767, *SAME              

  Maximum increments . . . . . .                 0-32767, *SAME              

Allocate storage . . . . . . . .   *NO           *NO, *YES, *SAME             

在Physical file打上檔名

library打上此檔的library之後按f10

再修改initial number of records 為*nomax即可



此動作的完整語法如下：

CHGPF FILE(SFMST/SF13)      SIZE(*NOMAX)