Re: Code page changes

["Bill" <brobins3d@xxxxxxxxx>]

>             PGM
>             DCLF       FILE(QADSPOBJ)
>             DLTF       FILE(QTEMP/QADSPOBJ)
>             MONMSG     MSGID(CPF2105)
>             DSPOBJD    OBJ(mylib/generic-file-name*) OBJTYPE(*FILE) +
>                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/QADSPOBJ)
>             OVRDBF     FILE(QADSPOBJ) TOFILE(QTEMP/QADSPOBJ)
> LOOP:       RCVF
>             MONMSG     MSGID(CPF0864) EXEC(RETURN)
>             CHGPF      FILE(&ODLBNM/&ODOBNM) CCSID(65535)
>             GOTO       CMDLBL(LOOP)
>             ENDPGM

Or, create a PDM option along these lines:
SbmJob cmd(ChgPF File(&L/&F) CCSID(65535)) job(&F)

Then do a WrkObjPDM on the necessary library, F17 to filter objects to *File
attr PF.  Enter the PDM option in the first file, F13 to duplicate to the end.
Hit Enter.

Bill


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---