Can't Save my Changed Source Member

[CatMiller07]

Save us time! Click 'Report an Issue' from the Help and Support panel inside of VS Code after you have connected to a system.

Describe the bug
After logging-in to an IBM i, editing an RPGLE program and hitting CTRL-S to save my changes, I see an error box showing:
Failed to save 'xxxx.rpgle':Unable to write file 'member:/Library/qrpglesrc/xxxxx.rpgle'(QSYSPRT *LIBL)

Los problemas en espanol estan bien.

To Reproduce
Steps to reproduce the behavior:

1. Go to '...'
2. Click on '....'
3. Scroll down to '....'
4. See error

Expected behavior
A clear and concise description of what you expected to happen:

I expected the source code to be changed -- I would be able to browse the source on the IBM i and
see my changes.

Screenshots
If applicable, add screenshots to help explain your problem.

Environment (please complete the following information):

• Extension version [e.g. 0.x.x] --
• VS CODE Version: 1.83.1 (user setup)
  Commit: f1b07bd25dfad64b0167beb15359ae573aecd2cc
  Date: 2023-10-10T23:48:05.904Z
  Electron: 25.8.4
  ElectronBuildId: 24154031
  Chromium: 114.0.5735.289
  Node.js: 18.15.0
  V8: 11.4.183.29-electron.0
  OS: Windows 10 Pro Ver 22H2
• IBM i OS version [e.g. 7.x] V7R3M0

Additional context
Add any other context about the problem here.

[worksofliam]

Please share the contents of your Code for IBM i output channel after you see the error.

[CatMiller07]

Hi Liam,
attached is the requested output.
VSCODE_Log.txt

[CatMiller07]

Hi Barry, Attached is a text file with the requested output.

On Thu, Oct 19, 2023 at 4:52 PM barry ***@***.***> wrote: Please share the contents of your Code for IBM i output channel after you see the error. [image: image] <https://user-images.githubusercontent.com/3708366/178739532-03c8ad30-84de-4698-9904-65938f2ef651.png> — Reply to this email directly, view it on GitHub <#1603 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/ADLZ66TCBGKP6PGKBZKTB5DYAGHHZAVCNFSM6AAAAAA6HYRJVSVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMYTONZRGY4DSMJWGQ> . You are receiving this because you authored the thread.Message ID: ***@***.***>

.: echo "This should be the only text!" { "code": 0, "signal": null, "stdout": "This should be the only text!", "stderr": "" } .: echo $HOME && cd && test -w $HOME { "code": 0, "signal": null, "stdout": "/home/catmiller", "stderr": "" } /home/catmiller: /QOpenSys/usr/bin/qsh liblist { "code": 0, "signal": null, "stdout": "QSYS SYS\nQSYS2 SYS\nQHLPSYS SYS\nQUSRSYS SYS\nQSHELL PRD\nALPCUSTO USR\nALPCUSTF USR\nALPCUSTS USR\nALPCUSTABS USR\nABSFRTIF USR\nCUSTOM USR\nABS400P USR\nABS400O USR\nABS400F USR\nABSHELP USR\nQGPL USR\nQTEMP USR\nABS400S USR\nQRYFILES USR\nDOWNLOAD USR\nMRKMAG USR\nAIEPRODPF USR\nAIEPRODO USR\nAIEPRODF USR", "stderr": "" } /home/catmiller: system "CRTLIB LIB(ILEDITOR) TEXT('Code for i temporary objects. May be cleared.')" { "code": 255, "signal": null, "stdout": "", "stderr": "CPF2111: Library ILEDITOR already exists." } /home/catmiller: [ -d "/tmp" ] { "code": 0, "signal": null, "stdout": "", "stderr": "" } /home/catmiller: system "DLTOBJ OBJ(ILEDITOR/O_*) OBJTYPE(*FILE)" /home/catmiller: rm -f /tmp/vscodetemp* /home/catmiller: echo $SHELL { "code": 255, "signal": null, "stdout": "", "stderr": "CPF2125: No objects deleted." } { "code": 0, "signal": null, "stdout": "/QOpenSys/pkgs/bin/bash", "stderr": "" } { "code": 0, "signal": null, "stdout": "", "stderr": "" } /home/catmiller: ls -p /QIBM/ProdData/IBMiDebugService/bin/certs/debug_service.pfx { "code": 0, "signal": null, "stdout": "/QIBM/ProdData/IBMiDebugService/bin/certs/debug_service.pfx", "stderr": "" } /home/catmiller: system "DSPOBJD OBJ(QSYS/*ALL) OBJTYPE(*LIB) DETAIL(*TEXTATR) OUTPUT(*OUTFILE) OUTFILE(ILEDITOR/O_NauYg4Ua)" { "code": 0, "signal": null, "stdout": "CPF9861: Output file O_NAUYG4UA created in library ILEDITOR.\nCPF9862: Member O_NAUYG4UA added to output file O_NAUYG4UA in library ILEDITOR.", "stderr": "" } /home/catmiller: system "QSYS/CPYTOIMPF FROMFILE(ILEDITOR/O_NauYg4Ua O_NauYg4Ua) TOSTMF('/tmp/vscodetemp-O_tqfKI9mA') MBROPT(*REPLACE) STMFCCSID(1208) RCDDLM(*CRLF) DTAFMT(*DLM) RMVBLANK(*TRAILING) ADDCOLNAM(*SQL) FLDDLM(',') DECPNT(*PERIOD)" { "code": 0, "signal": null, "stdout": "CPC2958: All records copied from file O_NAUYG4UA in ILEDITOR.", "stderr": "" } /home/catmiller: /usr/bin/attr "/tmp/vscodetemp-O_tqfKI9mA" CCSID { "code": 0, "signal": null, "stdout": "1208", "stderr": "" } .: rm -f /tmp/vscodetemp-O_tqfKI9mA { "code": 0, "signal": null, "stdout": "", "stderr": "" } .: system "DLTOBJ OBJ(ILEDITOR/O_NauYg4Ua) OBJTYPE(*FILE)" { "code": 0, "signal": null, "stdout": "", "stderr": "" } /home/catmiller: system "DSPFD FILE(CATWORK/QRPGLESRC) TYPE(*ATR) FILEATR(*PF) OUTPUT(*OUTFILE) OUTFILE(ILEDITOR/O_EXvr1yfy)" { "code": 0, "signal": null, "stdout": "CPF9861: Output file O_EXVR1YFY created in library ILEDITOR.\nCPF9862: Member O_EXVR1YFY added to output file O_EXVR1YFY in library ILEDITOR.\nCPF3030: 1 records added to member O_EXVR1YFY in file O_EXVR1YFY in ILEDITOR.", "stderr": "" } /home/catmiller: system "QSYS/CPYTOIMPF FROMFILE(ILEDITOR/O_EXvr1yfy O_EXvr1yfy) TOSTMF('/tmp/vscodetemp-O_FZnp8W0p') MBROPT(*REPLACE) STMFCCSID(1208) RCDDLM(*CRLF) DTAFMT(*DLM) RMVBLANK(*TRAILING) ADDCOLNAM(*SQL) FLDDLM(',') DECPNT(*PERIOD)" { "code": 0, "signal": null, "stdout": "CPC2958: All records copied from file O_EXVR1YFY in ILEDITOR.", "stderr": "" } /home/catmiller: /usr/bin/attr "/tmp/vscodetemp-O_FZnp8W0p" CCSID { "code": 0, "signal": null, "stdout": "1208", "stderr": "" } .: rm -f /tmp/vscodetemp-O_FZnp8W0p { "code": 0, "signal": null, "stdout": "", "stderr": "" } .: system "DLTOBJ OBJ(ILEDITOR/O_EXvr1yfy) OBJTYPE(*FILE)" { "code": 0, "signal": null, "stdout": "", "stderr": "" } /home/catmiller: /QOpenSys/usr/bin/qsh liblist -d ALPCUSTO ALPCUSTF ALPCUSTS ALPCUSTABS ABSFRTIF CUSTOM ABS400P ABS400O ABS400F ABSHELP QGPL QTEMP ABS400S QRYFILES DOWNLOAD MRKMAG AIEPRODPF AIEPRODO AIEPRODF && liblist -c KARACART && liblist -a AIEPRODF AIEPRODO AIEPRODPF MRKMAG DOWNLOAD QRYFILES ABS400S CATWORK QTEMP QGPL ABSHELP ABS400F ABS400O ABS400P CUSTOM ABSFRTIF ALPCUSTABS ALPCUSTS ALPCUSTF ALPCUSTO && system "CHKOBJ OBJ(CATWORK/QRPGLESRC) OBJTYPE(*FILE) AUT(*UPD)"; if [[ $? -ne 0 ]]; then exit 1; fi { "code": 0, "signal": null, "stdout": "", "stderr": "CPC2206: Ownership of object QZSHSYSTEM in QTEMP type *USRSPC changed." } /home/catmiller: system "DSPFD FILE(CATWORK/QRPGLESRC) TYPE(*MBR) OUTPUT(*OUTFILE) OUTFILE(ILEDITOR/O_AdheI39U)" { "code": 0, "signal": null, "stdout": "CPF9861: Output file O_ADHEI39U created in library ILEDITOR.\nCPF9862: Member O_ADHEI39U added to output file O_ADHEI39U in library ILEDITOR.\nCPF3030: 1 records added to member O_ADHEI39U in file O_ADHEI39U in ILEDITOR.", "stderr": "" } /home/catmiller: system "QSYS/CPYTOIMPF FROMFILE(ILEDITOR/O_AdheI39U O_AdheI39U) TOSTMF('/tmp/vscodetemp-O_fVLqpQ6Y') MBROPT(*REPLACE) STMFCCSID(1208) RCDDLM(*CRLF) DTAFMT(*DLM) RMVBLANK(*TRAILING) ADDCOLNAM(*SQL) FLDDLM(',') DECPNT(*PERIOD)" { "code": 0, "signal": null, "stdout": "CPC2958: All records copied from file O_ADHEI39U in ILEDITOR.", "stderr": "" } /home/catmiller: /usr/bin/attr "/tmp/vscodetemp-O_fVLqpQ6Y" CCSID { "code": 0, "signal": null, "stdout": "1208", "stderr": "" } .: rm -f /tmp/vscodetemp-O_fVLqpQ6Y { "code": 0, "signal": null, "stdout": "", "stderr": "" } .: system "DLTOBJ OBJ(ILEDITOR/O_AdheI39U) OBJTYPE(*FILE)" { "code": 0, "signal": null, "stdout": "", "stderr": "" } /home/catmiller: LC_ALL=EN_US.UTF-8 system "call QSYS/QZDFMDB2 PARM('-d' '-i' '-t')" CREATE OR REPLACE ALIAS ILEDITOR.CATWORK_QRPGLESRC_CMSGSC for "CATWORK"."QRPGLESRC"("CMSGSC") { "code": 0, "signal": null, "stdout": "DB2>\n ?>\nDB20000I THE SQL COMMAND COMPLETED SUCCESSFULLY.", "stderr": "" } /home/catmiller: LC_ALL=EN_US.UTF-8 system "call QSYS/QZDFMDB2 PARM('-d' '-i' '-t')" SELECT LENGTH(srcdta) as LENGTH FROM ILEDITOR.CATWORK_QRPGLESRC_CMSGSC limit 1 { "code": 0, "signal": null, "stdout": "DB2>\n ?>\n\nLENGTH \n-----------\n 100\n\n 1 RECORD(S) SELECTED.", "stderr": "" } /home/catmiller: LC_ALL=EN_US.UTF-8 system "call QSYS/QZDFMDB2 PARM('-d' '-i' '-t')" select srcdat, rtrim(translate(srcdta, x'2F', x'25')) as srcdta from ILEDITOR.CATWORK_QRPGLESRC_CMSGSC { "code": 0, "signal": null, "stdout": "DB2>\n ?>\n\nSRCDAT SRCDTA \n-------- ----------------------------------------------------------------------------------------------------\n 151230 H \n 151230 F*----------------------------------------------------------------*** \n 171026 F* KARA L. FOCHT 10/2017 \n 210315 F* Kara L. Focht 03/2021 -- correct postcard changes to match request \n 220517 F* S001 - Scott A. Burkle 05/2022 -- Add New packing list print logic \n 220517 F* fix Postcard line number issue (Line# is not always +100) \n 231018 F* Cathy A. Miller 10/2023 -- add an edit to check if a pick has already \n 231018 F* (C001) been assigned to a carton and satisifed \n 151230 F*----------------------------------------------------------------*** \n 210323 FCMSGSCFM CF E WORKSTN SFILE(SGSFL:RRN) \n 171027 FCMSGPKW2 iF E K DISK \n 171027 FCMSGPKD3 uF E K DISK \n 171027 FCMSGPKD4 uF E K DISK rename(reclwpkd:reclwpkd4) \n 171031 FCMSGPKD5 iF E K DISK rename(reclwpkd:reclwpkd5) \n 171116 FCMSGPKD6 iF E K DISK rename(reclwpkd:reclwpkd6) \n 171213 FCMSGPKDf uF E K DISK rename(reclwpkd:reclwpkdf) \n 171027 FCMSGPKWF uF E K DISK rename(reclwpk:reclwpkwf) \n 171030 FCMSGPKW3 iF E K DISK rename(reclwpk:reclwpkw3) \n 171026 FMSTWMOPR IF E k disk \n 171030 Fmstwmcth1 iF a E K DISK \n 171030 Fmstwmctd iF a E K DISK \n 171030 Fmstwmpkh uf E K DISK \n 171030 FMstwmfti if a E K DISK \n 220517 s001 F*alploc if E K DISK \n 220517 s001 Fmstwmloc IF E K DISK \n 220517 s001 Fmstwmstlb IF E K DISK \n 220517 s001 Fmstwmprm IF E K DISK \n 231018 C001 Fmstwmpkh IF E K DISK \n 171030 FMSTWMBOX IF E K disk \n 171030 FMSTWMPRA IF E K disk \n 171030 FMSTSTYLM IF E K DISK \n 171030 m001 FMSTSTYLO IF E K DISK \n 171030 FMSTABLE IF E K DISK \n 171030 FMSTORDH IF E K DISK \n 171030 FMSTCUST IF E K disk \n 171031 FMSTCOVR IF E K disk \n 171031 Fa1audctn iF a E K DISK \n 171031 Fa1auddtl iF a E K DISK \n 181011 FMSTOSTY1 IF E K disk prefix(KF_) \n 171026 \n 171026 **�active company and division \n 171026 DLOCAL DS \n 171026 D WSCO 2 3 \n 171026 D WSDIV 4 5 \n 171030 \n 171030 **�active company and division \n 171030 0006 D DS INZ \n 171030 DKUCC## 1 19 0 \n 171030 D DIM(19) \n 171030 DKINU 1 19 0 \n 171030 DKUCC# 1 20 0 \n 171030 DUFILL 1 4 0 \n 171030 DUCODE 5 5 0 \n 171030 DUD 6 10 0 \n 171030 DUSEQ 11 19 0 \n 171030 DUCHD 20 20 0 \n 171030 \n 171030 **�date \n 171030 0006 D DS \n 171030 Dtoday 1 8 0 \n 171030 Dtodaymd 1 4 0 \n 171030 Dtodaycy 5 8 0 \n 171030 0006 D DS \n 171030 Dtodayymd 1 8 0 \n 171030 Dtodaycyy 1 4 0 \n 171030 Dtodaymdy 5 8 0 \n 171030 \n 171026 **�open waves \n 171026 D openWaves S 7 DIM(999) \n 171026 D charWave S 7 \n 171026 D indxWave S 3S 0 inz(0) \n 171026 \n 171026 **�work fields \n 171026 DRRN S 5 0 \n 210323 D GoToWave S 1 \n 210323 D goodWave S 1 \n 171026 D ExitPgm S 1 \n 171030 D HoldPickSl S like(LDPICK) \n 171030 D HoldLocn S like(LDLOC ) \n 171030 DUIN S 1 0 DIM(19) \n 171030 D Workqty S 5 0 \n 171031 D WorkAqty S 5 0 \n 171031 D WorkMqty S 5 0 \n 171030 D z S 2 0 \n 171030 D HoldSEA S like(LDSEA ) \n 171030 D HoldSYR S like(LDSYR ) \n 171030 D HoldSTY S like(LDSTY ) \n 171030 D HoldCLR S like(LDCLR ) \n 171030 D HoldPCE S like(LDPCE ) \n 171030 D HoldDIM S like(LDDIM ) \n 171030 D HoldSIZE S like(LDSIZE) \n 171030 D Holdupc# S like(LDupc ) \n 171030 D Holdord# S like(LDord#) \n 210315 d WrkHdg1 C CONST(' Single Unit ') \n 210315 d WrkHdg2 C CONST(' Scan Confirm ') \n 210315 d WrkPCH1 C CONST('POSTCARD IS NEEDED') \n 210315 d WrkPCH2 C CONST('MULTIPLE POSTCARDS') \n 210315 d WrkPCH3 C CONST(' ARE NEEDED ') \n 210315 D WrkPCcnt S 2 0 \n 171030 \n 171030 D SIZ S 4 DIM(24) \n 171030 \n 171030 63D DS INZ \n 171030 63D WWGT 1 216 4 \n 171030 63D DIM(24) \n 171030 63D WWGT01 1 9 4 \n 171030 63D WWGT02 10 18 4 \n 171030 63D WWGT03 19 27 4 \n 171030 63D WWGT04 28 36 4 \n 171030 63D WWGT05 37 45 4 \n 171030 64D WWGT06 46 54 4 \n 171030 64D WWGT07 55 63 4 \n 171030 64D WWGT08 64 72 4 \n 171030 64D WWGT09 73 81 4 \n 171030 64D WWGT10 82 90 4 \n 171030 64D WWGT11 91 99 4 \n 171030 64D WWGT12 100 108 4 \n 171030 64D WWGT13 109 117 4 \n 171030 64D WWGT14 118 126 4 \n 171030 64D WWGT15 127 135 4 \n 171030 65D WWGT16 136 144 4 \n 171030 65D WWGT17 145 153 4 \n 171030 65D WWGT18 154 162 4 \n 171030 65D WWGT19 163 171 4 \n 171030 65D WWGT20 172 180 4 \n 171030 65D WWGT21 181 189 4 \n 171030 65D WWGT22 190 198 4 \n 171030 65D WWGT23 199 207 4 \n 171030 65D WWGT24 208 216 4 \n 171030 65D* \n 171030 10DINFO1 DS \n 171030 10DK1OPER \n 171030 10DHTIME \n 171030 11DKDATE1 12 19 0 \n 171030 11DDAT1 12 13 \n 171030 11DDAT2 14 15 \n 171030 11DDAT3 16 19 \n 171030 \n 171030 9+D SDS \n 171030 88D user 254 263 \n 171030 \n 171030 DREF3 DS \n 171030 DRSHIP 7 0 \n 171030 DRDEPT 10 \n 171030 \n 171030 DREF1 DS \n 171030 DRCO 2 \n 171030 DRDIV 2 \n 171030 DRPSN 7 0 \n 171030 \n 171030 D DS INZ \n 171030 DWIWGT 1 10 \n 171030 DXXWGTA 1 3 \n 171030 DXXWGTB 4 4 \n 171030 DXXWGTC 5 6 \n 171031 D DS INZ \n 171031 DWICODA 1 22 \n 171031 DXXCODA 1 4 0 \n 171031 DXXCODB 5 5 \n 171031 DXXCODC 6 7 \n 171030 \n 220517 s001 D****PARMps DS INZ \n 220517 | D****PCO 1 2 \n 220517 | D****PDIV 3 4 \n 220517 | D****PPICK 5 11 0 \n 220517 | D****PTYPE 12 12 \n 220517 | D****PCTN 13 13 \n 220517 | D****PFORM 14 23 \n 220517 | D****PFILL 25 25 \n 220517 | DPCO 2 \n 220517 | DPDIV 2 \n 220517 | DPPICK 7 \n 220517 | DPTYPE 1 \n 220517 | DPUPS 1 \n 220517 s001 DPFILL 10 \n 171031 d/copy COPT8Y \n 220517 s001 d/copy COPT07 \n 171031 D/copy coptab1DS \n 171031 d/copy COPCUSTDS \n 171031 d/copy MSTCOVR \n 220517 s001 C/copy getco1 \n 231018 C/copy COPCUSTKEY \n 231018 /FREE \n 231018 //C001 -Start \n 231018 d hasBeenPicked pr N \n 231018 d #Co like(weCo) \n 231018 d #Div like(weDiv) \n 231018 d #Pick like(wePick) \n 231018 //C001 -End \n 231018 \n 61005 /FREE \n 171026 \n 171026 \n 171213 //�clean up any that have been unwaved \n 171213 exsr DeleteUnwaves; \n 171213 \n 171026 //�total waves and total units open \n 171026 exsr GetWavesAndOpen; \n 151230 \n 151230 \n 171026 //�operator ID entry \n 171026 exsr ProcessOperator; \n 171026 IF ExitPgm=*Off; \n 151230 \n 210323 //�main program loop \n 210323 DOU ExitPgm = *on; \n 210323 \n 171026 //�wave# entry \n 210323 If GoToWave = 'Y'; \n 210323 exsr DeleteUnwaves; \n 210323 exsr GetWavesAndOpen; \n 210323 exsr ProcessWave#; \n 210323 GoToWave = 'N'; \n 210323 Endif; \n 171026 IF ExitPgm=*Off; \n 171026 \n 210323 //�clean up any that have been unwaved \n 210323 exsr DeleteUnwaves; \n 171026 \n 171026 //�Get Open Units and Scanned Units for Wave \n 171026 exsr GetWaveOpenScan; \n 171027 \n 171027 //�Process Item To Scan \n 171027 exsr ProcessScan; \n 61006 \n 210323 ENDIF; \n 61005 ENDDO; \n 210323 ENDIF; \n 151230 \n 61005 *INLR=*ON; \n 151230 \n 171026 //�-------------------------------------------------------------------- \n 171026 //�operator ID entry \n 171026 //�-------------------------------------------------------------------- \n 171026 BegSR ProcessOperator; \n 171026 \n 171026 //�enter-validate operator ID screen \n 171026 *in30 = *on ; \n 171026 ExitPgm = *off ; \n 171026 DOU *in30 = *off or ExitPgm = *on; \n 171026 EXFMT CMSGSC1; \n 171026 \n 171026 ERRMSG = *blanks; \n 171026 *in30 = *off; \n 171026 \n 171026 //�exit program \n 171026 IF *IN03=*ON; \n 171026 Exitpgm = *on; \n 171026 ELSE; \n 171026 \n 171026 //�operator id error \n 171026 If K1oper = *blanks; \n 171026 *in30=*on; \n 171026 ERRMSG = 'Invalid Operator ID'; \n 171026 ITER; \n 171026 EndIf; \n 171026 \n 171026 CHAIN (K1oper) mstwmopr; \n 171026 If Not %Found(mstwmopr); \n 171026 *in30=*on; \n 171026 ERRMSG = 'Invalid Operator ID'; \n 171026 ITER; \n 220517 //�S s001 \n 220517 Else; \n 220517 chain (wowh) mstwmprm; \n 220517 if not %found(mstwmprm); \n 220517 *in30=*on; \n 220517 ERRMSG='Invalid Oper WH'; \n 220517 ITER; \n 220517 ENDIF; \n 220517 //�E s001 \n 171026 EndIf; \n 171026 \n 171026 EndIf; \n 171026 Enddo; \n 171026 ENDSR; \n 171027 \n 171027 //�-------------------------------------------------------------------- \n 171027 //�wave entry \n 171027 //�-------------------------------------------------------------------- \n 171027 BegSR ProcessWave#; \n 171027 \n 171027 //�enter-validate wave# screen \n 171027 *in31 = *on ; \n 171027 ExitPgm = *off ; \n 210323 clear k2wave; \n 171027 DOU *in31 = *off or ExitPgm = *on; \n 171027 EXFMT CMSGSC2; \n 171027 \n 171027 ERRMSG = *blanks; \n 171027 *in31 = *off; \n 200519 *in78 = *off; \n 171027 \n 171027 //�exit program \n 171027 IF *IN03=*ON; \n 171027 Exitpgm = *on; \n 171027 ELSE; \n 200519 \n 200519 //�Packaging Code Error \n 200519 If KKCODE <> 'SB' and \n 200519 KKCODE <> 'ST' and \n 200519 KKCODE <> 'SC' and \n 200519 KKCODE <> 'SP'; \n 200519 *in78=*on; \n 200519 ERRMSG = 'Invalid Packaging Code(SB/ST/SC/SP'; \n 200519 ITER; \n 200519 EndIf; \n 200519 \n 171027 \n 171027 //�wave error; \n 171027 CHAIN (wsco:wsdiv:K2WAVE) reclwpk; \n 171027 If Not %Found(cmsgpkw2); \n 171027 *in31=*on; \n 171027 ERRMSG = 'Invalid Wave#'; \n 171027 ITER; \n 171027 EndIf; \n 171027 \n 171027 EndIf; \n 171027 ENDDO; \n 171027 ENDSR; \n 171026 //�-------------------------------------------------------------------- \n 171027 //�scan upc# \n 171026 //�-------------------------------------------------------------------- \n 171027 BegSR ProcessScan; \n 171026 \n 171027 //�enter-validate upc# screen \n 171027 \n 171027 *in32 = *on ; \n 171027 DOU *in32 = *off or ExitPgm = *on; \n 171027 *in32 = *off; \n 171027 EXFMT CMSGSC3; \n 171027 ERRMSG = *blanks; \n 171027 \n 171027 //�exit program \n 171027 IF *IN05=*ON; \n 171027 Exsr ReviewIt; \n 171102 iter; \n 171027 endif; \n 171026 \n 171026 //�exit program \n 171026 IF *IN03=*ON; \n 171026 Exitpgm = *on; \n 171026 ELSE; \n 171026 \n 171030 //�scan error \n 171030 chain (wsco:wsdiv:k2wave:k3upc#) cmsgpkd3; \n 171030 If not %Found(cmsgpkd3); \n 190121 *in08 = *off; \n 190121 DOU *in03 or *in08; \n 190121 EXFMT CMSGSC8; \n 190121 IF *IN03=*ON; \n 190121 Exitpgm = *on; \n 190121 LEAVE; \n 190121 endif; \n 190121 ENDDO; \n 171027 *in32=*on; \n 171030 ERRMSG = 'Invalid UPC#'; \n 171026 ITER; \n 171030 Else; \n 171030 //�hold the pick slip/order & update \n 231018 // C001 - check if the order has been manually picked \n 231018 // by reading the pick ticket header and if it \n 231018 // has been display an error message and leave. \n 231018 // start \n 231018 C001 if hasBeenPicked(wsco:wsdiv:LDPICK); \n 231018 . DOU *in03 or *in08; \n 231018 . EXFMT CMSGSC3B; \n 231018 . IF *IN03=*ON; \n 231018 . Exitpgm = *on; \n 231018 . LEAVE; \n 231018 . endif; \n 231018 . ENDDO; \n 231018 . \n 231018 C001 else; \n 171030 HoldPickSl = LDPICK; \n 171030 HoldLocn = LDLOC ; \n 171030 HoldSEA = LDSEA ; \n 171030 HoldSYR = LDSYR ; \n 171030 HoldSTY = LDSTY ; \n 171030 HoldCLR = LDCLR ; \n 171030 HoldPCE = LDPCE ; \n 171030 HoldDIM = LDDIM ; \n 171030 HoldSIZE = LDSIZE; \n 171030 Holdupc# = LDupc; \n 171102 Holdord# = LDord#; \n 171030 Exsr UpdateItem; \n 171030 Exsr CartonConf; \n 231018 C001 ENDIF; \n 171030 EndIf; \n 171026 \n 171027 EndIf; \n 171026 ENDDO; \n 171027 \n 171026 ENDSR; \n 171027 \n 171027 //�-------------------------------------------------------------------- \n 171027 //�remove item from process/inventory off? \n 171027 //�-------------------------------------------------------------------- \n 171027 BegSR UpdateItem; \n 171102 \n 171030 workQty = 0; \n 171027 //�update the scannable item \n 171030 chain (wsco:wsdiv:k2wave:k3upc#:holdpicksl) cmsgpkd3; \n 171027 If %Found(cmsgpkd3); \n 171030 ldconf = 'Y'; \n 171030 workqty += 1; \n 171027 update reclwpkd; \n 171027 EndIf; \n 171102 \n 171030 //�are there any postcards? \n 210315 //�determine if this sku/pick requires postcards \n 210315 //�must check detail to know single or multiple postcards \n 210315 WrkPCcnt = 0; \n 210315 *in66 = *off; \n 210315 WRKFPC1 = WrkHdg1; \n 210315 WRKFPC2 = WrkHdg2; \n 210315 WRKFPC3 = *blanks; \n 210315 WRKFPC4 = *blanks; \n 171027 setll (wsco:wsdiv:k2wave:ldpick) cmsgpkd4; \n 171027 reade (wsco:wsdiv:k2wave:ldpick) cmsgpkd4; \n 171102 dow not %eof; \n 171030 k4pcst = ldsty; \n 210315 //�------------------------------------------------ \n 210315 //�confirmation on the gun to ensure postcard added \n 210315 //�this line can be re-added to require tab enter \n 210315 // EXFMT CMSGSC4; \n 210315 //�------------------------------------------------ \n 210315 If ldpost = 'Y'; \n 210315 WrkPCcnt += 1; \n 210315 Endif; \n 171030 ldconf = 'Y'; \n 171030 workqty += 1; \n 171027 update reclwpkd4; \n 171027 reade (wsco:wsdiv:k2wave:ldpick) cmsgpkd4; \n 171027 enddo; \n 210315 If WrkPCcnt = 1; \n 210315 *in66 = *on; \n 210315 WRKFPC1 = WrkPCH1; \n 210315 WRKFPC2 = WrkPCH1; \n 210315 WRKFPC3 = WrkPCH1; \n 210315 WRKFPC4 = WrkPCH1; \n 210315 Endif; \n 210315 If WrkPCcnt > 1; \n 210315 *in66 = *on; \n 210315 WRKFPC1 = WrkPCH2; \n 210315 WRKFPC2 = WrkPCH3; \n 210315 WRKFPC3 = WrkPCH2; \n 210315 WRKFPC4 = WrkPCH3; \n 210315 Endif; \n 171102 \n 171027 //�update the pick header \n 171027 setll (wsco:wsdiv:k2wave:ldpick) cmsgpkwf; \n 171027 reade (wsco:wsdiv:k2wave:ldpick) cmsgpkwf; \n 171027 dow not %eof; \n 171030 lwconf = 'Y'; \n 171027 update reclwpkwf; \n 171027 reade (wsco:wsdiv:k2wave:ldpick) cmsgpkwf; \n 171027 enddo; \n 171027 \n 171027 ENDSR; \n 171027 \n 171030 //�-------------------------------------------------------------------- \n 171030 //�carton confirmation \n 171030 //�-------------------------------------------------------------------- \n 171030 BegSR CartonConf; \n 171031 //�check if custom packing list \n 171031 Exsr ChkPackL; \n 171031 \n 181218 //�fill shipping information \n 181218 exsr shipvia; \n 181218 \n 171030 //�must enter carton# \n 200106 if *in57=*off; \n 200106 K5BOXC = 'BAGM'; \n 200106 else; \n 200123 //�k5boxc=' '; \n 200106 endif; \n 171030 *in34 = *on ; \n 200106 DOU (*in34 = *off and *in38=*off) or ExitPgm = *on; \n 171030 *in34 = *off; \n 200106 *in38 = *off; \n 210315 \n 210315 //�display the screen to enter the carton number \n 200519 *in79 = *off; \n 171030 EXFMT CMSGSC5; \n 171030 ERRMSG = *blanks; \n 171030 \n 200106 //�allow box code entry \n 200106 If *in09; \n 200106 if *in57; \n 200106 *in57=*off; \n 200519 else; \n 200106 *in57=*on; \n 200106 endif; \n 200519 *in38=*on; \n 200106 ITER; \n 200106 endif; \n 200519 \n 200519 //�Packaging Code Error \n 200519 If KKCODE <> 'SB' and \n 200519 KKCODE <> 'ST' and \n 200519 KKCODE <> 'SC' and \n 200519 KKCODE <> 'SP'; \n 200519 *in79=*on; \n 200519 ERRMSG = 'Invalid Packaging Code(SB/ST/SC/SP'; \n 200519 ITER; \n 200519 EndIf; \n 200519 \n 200106 \n 200106 //�box code error \n 200106 chain (k5boxc) mstwmbox; \n 200106 If not %found(mstwmbox); \n 200106 *in38=*on; \n 200106 ERRMSG='Box Code is Invalid'; \n 200106 ITER; \n 200106 Endif; \n 200106 \n 171030 //�carton error \n 171030 if k5crt# = 0;

[chrjorgensen]

@CatMiller07 I see some � characters in some of the comment lines in the RPG source - are you having SEU color codes in there? Code for IBM i does not like these, and you have two options:

1. Remove the color codes from the source - my recommendation, since most modern editors have syntax coloring and don't understand the meaning of those EBCDIC hex values.
2. Try enabling SEU color codes in the settings for the extension: No guarantee that this will work, though...

[CatMiller07]

Alas, I cannot pull the highlighted/colored comments because they're part of the source code history. I figured there must be a way to allow for this otherwise it will make VS Code less helpful to maintain large legacy programs. I did a lot of searching but could not find any info concerning how to configure the IDE. I like the concept of an affordable, RDi alternative but this one leaves much to be desired. It's tough to pay almost $1400 for RDi but there really isn't anything like it.

…

On Thu, Oct 19, 2023 at 8:02 PM Christian Jorgensen < ***@***.***> wrote: @CatMiller07 <https://github.com/CatMiller07> I see some � characters in some of the comment lines in the RPG source - are you having SEU color codes in there? Code for IBM i does not like these, and you have two options: 1. Remove the colour codes from the source - my recommendation, since most modern editors have syntax colouring and don't understand the meaning of those EBCDIC hex values. 2. Try enabling SEU colour codes in the settings for the extension: [image: image] <https://user-images.githubusercontent.com/13275072/276781019-f6f6e5c9-f00e-4582-b2f9-23786ec940e1.png> No guarantee that this will work, though... — Reply to this email directly, view it on GitHub <#1603 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/ADLZ66VEG4VR6DLWZSHEPBTYAG5TBAVCNFSM6AAAAAA6HYRJVSVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMYTONZRHA3DGNZVG4> . You are receiving this because you were mentioned.Message ID: ***@***.***>

[chrjorgensen]

I cannot pull the highlighted/colored comments because they're part of the source code history.

You don't pull the comments - you remove the hex codes from the comments and keep the text in them.

There's a SQL procedure which can do this for you here: #1375 (comment)

The only editor understanding and using these codes is SEU - and you clearly want to get away from SEU. Color codes were great in the 90's but now they are just a pain and we should get rid of them asap.

I like the concept of an affordable, RDi alternative but this one leaves much to be desired.

Code for IBM i is free and open source, and if you need more functions than is currently in the extension, you can raise an issue and suggest the functions to be included - or you can copy the source code and make the functions yourself, if so desired, and perhaps offer it back to the project in a pull request. This is what open source is all about...

[worksofliam]

To confirm, I just heard that RDi doesn't fully support colour codes.

@CatMiller07 If you're willing to share a hex dump of your member, I can look into this more for you.