RE: CPYFRMSTMF & character conversion -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

While I think processing the IFS file directly is the way to go I respect
your least disruption concern.

How does this work?
CPY OBJ('/home/ROB/jt.txt') TOOBJ('/qsys.lib/rob.lib/jt.file/jt.mbr')
REPLACE(*YES)

crtpf rob/jt rcdlen(80)

Ownership of object JT in ROB type *FILE changed.
File JT created in library ROB.
Member JT added to file JT in ROB.

EDTF STMF('/home/ROB/jt.txt')
CPY OBJ('/home/ROB/jt.txt') TOOBJ('/qsys.lib/rob.lib/jt.file/jt.mbr')

Object already exists. Object is /qsys.lib/rob.lib/jt.file/jt.mbr.

CPY OBJ('/home/ROB/jt.txt') TOOBJ('/qsys.lib/rob.lib/jt.file/jt.mbr')

REPL
ACE(*YES)
Member JT removed from file JT in ROB.
Member JT added to file JT in ROB.
Object copied.

dsppfm rob/jt

*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
12345678911234567892123456789312345678941234567895123456789612345678971234567898
■■123456789112345678921234567893123456789412345678951234567896123456789712345678
98■■
****** END OF DATA ******
F10=Display hexadecimal
Ok, there is a CRLF concern...
0D25

Rob Berendt

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.