逻辑文件有comp
A R MKCRSPR PFILE(MRKCRSP)
*
A K SVANSQ
*
A S SVSYID COMP(EQ 'SUBSCRIPTIONS ')
A SVATYP COMP(EQ 'SUBST')
A SVLINE COMP(EQ 001)
*