Not sure if this is any use to anyone else but......
I was converting an old system and had to take an existing
physical file and rename it and change all the fields names.
I was unable to use the cpyf command because some of the
deical fields in the old table were signed (not packed as the new one)
so I just wrote a quick program here it is
I was converting an old system and had to take an existing
physical file and rename it and change all the fields names.
I was unable to use the cpyf command because some of the
deical fields in the old table were signed (not packed as the new one)
so I just wrote a quick program here it is
Code:
FCOILLABOR IP E DISK FCSICLAB O E DISK d Labor1 e ds extname(COILLABOR) d Labor2 e ds extname(CSICLAB) /free labor2 = Labor1; cirow = %int(SArow); cishel = %int(SAshel); write CSICLABR; /end-free
Comment