QDDSSRC – iSeries command to change member type

45 pts.
Tags:
iSeries Commands
iseries v5r4
QDDSSRC
[strong]Does anyone know if there is a command to change a member type[/strong]

[strong]In QDDSSRC?  I use the command below to convert a data file[/strong]

[strong]To a source member but it leaves the member type blank?[/strong]



Software/Hardware used:
iSeries 270 V5R4

Answer Wiki

Thanks. We'll let you know when a new response is added.

CHGPFM SRCTYPE([i]type[/>)

Discuss This Question: 3  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • RossHowatson
    srctype(*NONE)
    265 pointsBadges:
    report
  • Littlepd
    Ross, The source type is already blank. The need is to change it to a type that reflects the contents; i.e., RPGLE, CLLE, PF, etc.
    1,130 pointsBadges:
    report
  • jmar
    I found out I already had it in another library member: /*********************************************************************/ /* PROGRAM FITDDSCL */ /* DESCRIPTION: copy RPG F&I specs to DDS A specs */ /* */ /* James R. Martin */ /* J. Martin Associates */ /* 5185 TARA LN., BOSSIER CITY, LA 71111-7810 */ /* PHONE: (318) 752-4109 CELL PHONE: ( 318) 773-9484 */ /* PERSONAL E-MAIL: JMARTIN@JMARTINASSOCIATES.NET */ /* Web Site: www.jmartinassociates.net */ /* */ /* */ /*===================================================================*/ /* Notes */ PGM DCL VAR(&FILEOUT) TYPE(*CHAR) LEN(8) + VALUE('DDSOUT') DCLF FILE(FITDDSFM) RCDFMT(INPUT) /* GET PROMPT SCREEN */ SNDRCVF RCDFMT(INPUT) IF COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(END)) CLRPFM FILE(JMALIB/FIIN) CLRPFM FILE(JMALIB/DDSOUT) CPYF FROMFILE(JMALIB/QS36SRC) TOFILE(JMALIB/FIIN) + FROMMBR(&FILEIN) MBROPT(*REPLACE) + FMTOPT(*CVTSRC) CALL PGM(FITDDS) CHGVAR VAR(&FILEOUT) VALUE(&FILEIN) CPYF FROMFILE(JMALIB/DDSOUT) + TOFILE(JMALIB/QDDSWRK) TOMBR(&FILEOUT) + MBROPT(*REPLACE) FMTOPT(*CVTSRC) CHGPFM FILE(JMALIB/QDDSWRK) MBR(&FILEIN) + SRCTYPE(PF) TEXT(&FILEIN) END: ENDPGM --------------------------------------------------------------------------------
    45 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following