https://pickwiki.org/index.php?action=history&feed=atom&title=AMVedit_AEAMVedit AE - Revision history2026-04-28T23:40:42ZRevision history for this page on the wikiMediaWiki 1.43.0https://pickwiki.org/index.php?title=AMVedit_AE&diff=1499&oldid=prevConversion script: link fix2015-02-26T23:48:53Z<p>link fix</p>
<p><b>New page</b></p><div>Back to [[BasicSource]]<br />
<br />
This is a utility to edit associated multivales defined by the amvdefine_ae utility.<br />
<br />
<PRE><br />
SUBROUTINE [[AMVEDIT_AE]](MAT AEJUNK)<br />
<br />
* Allows the user to edit associated multivalues shown across<br />
* the terminal. The user defines the association using [[AMVDEFINE_AE]].<br />
*<br />
* AE runs $xxx programs by having an item in [[AE_XCOMS]] keyed $xxx where<br />
* the second line is the named of a cataloged program ending in _AE<br />
*<br />
* For example, if you have $EA set up with [[AMVEDIT_AE]] on line 2,<br />
* it will run this program if you enter "$EA" within AE<br />
<br />
BELL = CHAR(7)<br />
FILENAME = AEJUNK(24)<br />
IF FILENAME EQ '' THEN<br />
CRT 'There is no file name':BELL<br />
RETURN<br />
END<br />
IF FILENAME NE OCONV(FILENAME,'MCP') THEN<br />
CRT 'The file name has unprintable characters':BELL<br />
RETURN<br />
END<br />
OPEN 'VOC' TO VOC ELSE<br />
CRT 'Cannot open VOC file':BELL<br />
RETURN<br />
END<br />
AMID = FILENAME:'_amv'<br />
READ JUNK FROM VOC, AMID ELSE<br />
JUNK = 'X - Associated [[MultiValue]] definitions'<br />
END<br />
BAD = 0<br />
TEST = JUNK<2><br />
IF LEN(TEST) GT 1 THEN BAD += 1<br />
IF TEST MATCHES '0[[X1N0X]]' THEN BAD += 2<br />
IF TEST MATCHES '0[[X1A0X]]' THEN BAD += 4<br />
TEST = JUNK<br />
IF JUNK<1>[1,1] NE 'X' THEN BAD += 8<br />
DEL TEST<1><br />
DEL TEST<1><br />
CONVERT @VM:@AM:'1234567890' TO '' IN TEST<br />
IF TEST NE '' THEN BAD += 16<br />
IF BAD GT 0 THEN<br />
CRT 'The definition for ':AMID:' is wrong (':BAD:')'<br />
RETURN<br />
END<br />
<br />
LINE = AEJUNK(3)<br />
LOCATE(LINE,JUNK,3;POSV) THEN<br />
POSV = JUNK<4,POSV><br />
END ELSE POSV = 0<br />
BAD = @FALSE<br />
IF NOT(POSV) THEN<br />
* We can cope if there is only one AMV group defined<br />
BAD = @TRUE<br />
FOR XX = 5 TO 13<br />
IF JUNK<XX> NE '' THEN<br />
IF POSV THEN BAD = @TRUE ELSE BAD = @FALSE<br />
POSV = XX<br />
END<br />
NEXT XX<br />
END<br />
IF BAD THEN<br />
CRT 'Line ':LINE:' is not in an association'<br />
RETURN<br />
END<br />
<br />
MARK = JUNK<2>[1,1]<br />
KITH = JUNK<POSV><br />
CONVERT @VM TO @AM IN KITH<br />
<br />
OPEN '[[AE_COMS]]' TO ACOM ELSE<br />
CRT 'Cannot open [[AE_COMS]]':BELL<br />
SLEEP 1<br />
RETURN<br />
END<br />
<br />
TTID = @USERNO:'_':@LEVEL:'_':FILENAME:'_assoc'<br />
<br />
SHOW = KITH<br />
CONVERT @AM TO ' ' IN SHOW<br />
CRT 'Editing AMV with fields ':SHOW<br />
<br />
* Set up a rotated array of the associated multivalues<br />
NEW1 = AEJUNK(1)<KITH<1>><br />
CONVERT @VM TO @AM IN NEW1<br />
XXNO = DCOUNT(KITH,@AM)<br />
FOR XX = 2 TO XXNO<br />
LINE = KITH<XX><br />
BITE = AEJUNK(1)<LINE><br />
YYNO = DCOUNT(BITE,@VM)<br />
FOR YY = 1 TO YYNO<br />
NEW1<YY,XX> = BITE<1,YY><br />
NEXT YY<br />
NEXT XX<br />
<br />
* Convert the value marks if we have another mark defined<br />
IF MARK NE '' THEN CONVERT @VM TO MARK IN NEW1<br />
<br />
* Write it away, edit it, and get it back<br />
SENTENCE = TRIM(@SENTENCE)<br />
VERB = FIELD(SENTENCE,' ',1)<br />
IF VERB EQ 'RUN' THEN VERB = FIELD(SENTENCE,' ',1,3)<br />
WRITE NEW1 ON ACOM, TTID<br />
EXECUTE VERB:' [[AE_COMS]] ':TTID<br />
READ OLD1 FROM ACOM,TTID ELSE OLD1 = ''<br />
DELETE ACOM, TTID<br />
<br />
* replace the defined mark with value marks<br />
IF MARK NE '' THEN CONVERT MARK TO @VM IN OLD1<br />
<br />
* Rotate the array back to what it was<br />
NEW1 = ''<br />
ZZNO = DCOUNT(OLD1,@AM)<br />
FOR ZZ = 1 TO ZZNO<br />
LINE = OLD1<ZZ><br />
FOR XX = 1 TO XXNO<br />
BITE = LINE<1,XX><br />
IF BITE NE '' THEN NEW1<XX,ZZ> = BITE<br />
NEXT XX<br />
NEXT ZZ<br />
<br />
* Replace the original lines with the new ones<br />
* I remove trailing @VMs YOU MAY WANT TO LEAVE THEM<br />
FOR XX = 1 TO XXNO<br />
BITE = NEW1<XX><br />
BITE = TRIM(BITE,@VM,'T')<br />
LINE = KITH<XX><br />
AEJUNK(1)<LINE> = BITE<br />
NEXT XX<br />
<br />
RETURN<br />
</PRE></div>Conversion script