HLOPRSR3 ;ALB/CJM - Visual Parser 12 JUN 1997 10:00 am ;08/29/2008
Source file <HLOPRSR3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETUP(PARMS,MSG,POS,SEG) | ;
|
|
| DESCRIBE | ;
|
|
| LJ(STRING,LENGTH) | ;
|
|
| GETSEG(VALUE,SEG,VERSION) | ;
|
|
| GETFLD(VALUE,SEG,VERSION,FLD) | ;
|
|
| GETCOMP(VALUE,SEG,VERSION,FLD,COMP) | ;
|
|
| GETSUB(VALUE,SEG,VERSION,FLD,COMP,SUB) | ;
|
|
| HELP | ;
|
|
| LINE(TO,INC) | ;msg line
|
|
| X(TO,INC) | ;current position within the line
|
|
| Y(LINE) | ;screen line of msg line = LINE
|
|
| SEG(INC) | ;returns the current segement #
|
|
| FLD(SET) | ;returns the currrent field #
|
|
| REP(SET) | ;returns the current repetition #
|
|
| COMP(SET) | ;returns the current component #
|
|
| SUB(SET) | ;returns the current sub-component #
|
|
| SEGSTART(SEGMENT) | ;
|
|
| IOXY(Y,X) | ; moves to screen position line=Y, col=X
|
|
| OPTIONAL(CODE) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ENS^%ZISS | SETUP+10 |
| $$TEST^DDBRT | SETUP+14 |
| $$DESCAPE^HLOPRS | SETUP+38 |
| $$DESCAPE^HLOPRS1 | DESCRIBE+41 |
| $$COMP^HLOPRSR1 | COMP+1 |
| $$FLD^HLOPRSR1 | FLD+1 |
| $$LINE^HLOPRSR1 | LINE+1 |
| $$REP^HLOPRSR1 | REP+1 |
| $$SEG^HLOPRSR1 | SEG+1 |
| $$SEGSTART^HLOPRSR1 | SEGSTART+1 |
| $$SUB^HLOPRSR1 | SUB+1 |
| $$X^HLOPRSR1 | X+2 |
| $$Y^HLOPRSR1 | Y+1 |
| IOXY^HLOPRSR1 | IOXY+1 |
| WRITELN^HLOPRSR1 | SETUP+47 |
| HILITE^HLOPRSR2 | SETUP+52 |
| SPLITHDR^HLOSRVR1 | SETUP+37 |
| PAUSE^VALM1 | SETUP+11 |
| PREP^XGF | SETUP+8 |
| $$LJ^XLFSTR | LJ+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HLD(779.5 - [#779.5] | GETSEG+4, GETSEG+5, GETSEG+7, GETFLD+5, GETFLD+6, GETFLD+8, GETFLD+10, GETCOMP+5, GETCOMP+6, GETCOMP+8 , GETCOMP+10, GETCOMP+12, GETSUB+5, GETSUB+6, GETSUB+8, GETSUB+10, GETSUB+12, GETSUB+14 |
| ^TMP($J | SETUP+20 |
| Name | Line Occurrences |
|---|---|
| $$COMP | SETUP+42, DESCRIBE+28, DESCRIBE+29, DESCRIBE+34 |
| $$FLD | SETUP+42, DESCRIBE+8, DESCRIBE+9, DESCRIBE+17, DESCRIBE+18, DESCRIBE+28, DESCRIBE+34, DESCRIBE+39 |
| $$GETCOMP | DESCRIBE+28 |
| $$GETFLD | DESCRIBE+17 |
| $$GETSEG | DESCRIBE+6 |
| $$GETSUB | DESCRIBE+34 |
| $$LINE | SETUP+41 |
| $$LJ | DESCRIBE+7, DESCRIBE+18, DESCRIBE+21, DESCRIBE+24, DESCRIBE+29, DESCRIBE+32, DESCRIBE+35, DESCRIBE+38, DESCRIBE+42, DESCRIBE+45 , HELP+10 |
| $$REP | SETUP+42, DESCRIBE+18 |
| $$SEG | SETUP+41, DESCRIBE+7 |
| $$SUB | SETUP+42, DESCRIBE+34, DESCRIBE+35 |
| $$X | SETUP+41, HELP+11 |
| $$Y | HELP+11 |
| DESCRIBE | SETUP+51 |
| IOXY | SETUP+48, DESCRIBE+45, HELP+10, HELP+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BOT | SETUP+1~, SETUP+6*, SETUP+7, SETUP+17, SETUP+21 |
| CODE | OPTIONAL~, OPTIONAL+2, OPTIONAL+3, OPTIONAL+4, OPTIONAL+5, OPTIONAL+6, OPTIONAL+7 |
| COMP | SETUP+25*, SETUP+29, SETUP+34, SETUP+38, DESCRIBE+11, DESCRIBE+28, DESCRIBE+41, GETCOMP~, GETCOMP+10, GETSUB~ , GETSUB+10 |
| COMPIEN | GETCOMP+2~, GETCOMP+10*, GETCOMP+11, GETCOMP+12, GETSUB+2~, GETSUB+10*, GETSUB+11, GETSUB+12, GETSUB+14 |
| CS | SETUP+33~, SETUP+34* |
| >> DELIM | SETUP+24*, SETUP+25, SETUP+26, SETUP+27, SETUP+28, SETUP+29* |
| >> DESCRIBE | DESCRIBE+2*, DESCRIBE+3, DESCRIBE+4, DESCRIBE+7, DESCRIBE+10, DESCRIBE+11, DESCRIBE+12, DESCRIBE+13, DESCRIBE+14, DESCRIBE+18 , DESCRIBE+21, DESCRIBE+24, DESCRIBE+29, DESCRIBE+32, DESCRIBE+35, DESCRIBE+38, DESCRIBE+42, DESCRIBE+44, DESCRIBE+45, HELP+2* |
| >> ESC | SETUP+27*, SETUP+34, DESCRIBE+13, DESCRIBE+41 |
| ESCAPE | SETUP+33~, SETUP+34* |
| FLD | SETUP+23*, SETUP+24, SETUP+29, SETUP+34, SETUP+38, DESCRIBE+10, DESCRIBE+41, GETFLD~, GETFLD+8, GETCOMP~ , GETCOMP+8, GETSUB~, GETSUB+8 |
| FLDIEN | GETFLD+2~, GETFLD+8*, GETFLD+9, GETFLD+10, GETCOMP+2~, GETCOMP+8*, GETCOMP+9, GETCOMP+10, GETCOMP+12, GETSUB+2~ , GETSUB+8*, GETSUB+9, GETSUB+10, GETSUB+12, GETSUB+14 |
| FS | SETUP+33~, SETUP+34* |
| HDR | SETUP+33~, SETUP+37 |
| HDR( | SETUP+36* |
| HDR(2 | SETUP+38 |
| I | SETUP+1~, SETUP+21*, SETUP+35*, SETUP+36*, SETUP+39*, SETUP+40*, SETUP+47*, DESCRIBE+1~, DESCRIBE+44*, DESCRIBE+45* , HELP+1~, HELP+10* |
| INC | LINE~, LINE+1, X~, X+2, SEG~, SEG+1 |
| >> IOBM | SETUP+16*, SETUP+47, SETUP+48, DESCRIBE+45, HELP+10 |
| >> IOINHI | DESCRIBE+7, DESCRIBE+18, DESCRIBE+29, DESCRIBE+35, DESCRIBE+42, HELP+6, HELP+7, HELP+8, HELP+9 |
| >> IOINORM | DESCRIBE+7, DESCRIBE+18, DESCRIBE+29, DESCRIBE+35, DESCRIBE+42, HELP+6, HELP+7, HELP+8, HELP+9 |
| >> IORVOFF | SETUP+49 |
| >> IORVON | SETUP+49 |
| IOSL | SETUP+16 |
| >> IOSTBM | SETUP+50 |
| >> IOTM | SETUP+16* |
| >> IOXY | SETUP+13 |
| >> LASTPART(1 | SETUP+53* |
| >> LASTPART(2 | SETUP+54* |
| LENGTH | LJ~, LJ+1 |
| LINE | Y~, Y+1 |
| MSG | SETUP~, SETUP+18*, SETUP+20*, SETUP+21, SETUP+23, SETUP+24, SETUP+30, SETUP+36, SETUP+47, DESCRIBE+27 , DESCRIBE+34 |
| MSG(2 | HELP+5* |
| MSG1 | HELP+3! |
| MSG1( | HELP+10 |
| MSG1(1 | HELP+4* |
| MSG1(3 | HELP+6* |
| MSG1(4 | HELP+7* |
| MSG1(5 | HELP+8* |
| MSG1(6 | HELP+9* |
| MSG2 | DESCRIBE+1~, HELP+3! |
| NEXT | DESCRIBE+26~, DESCRIBE+27*, DESCRIBE+28 |
| NODE | GETSEG+1~, GETSEG+7*, GETSEG+8, GETFLD+2~, GETFLD+3*, GETFLD+10*, GETFLD+11, GETFLD+12, GETFLD+13, GETFLD+14 , GETFLD+15, GETFLD+16, GETFLD+17, GETCOMP+2~, GETCOMP+3*, GETCOMP+12*, GETCOMP+13, GETCOMP+14, GETCOMP+15, GETCOMP+16 , GETSUB+2~, GETSUB+3*, GETSUB+14*, GETSUB+15, GETSUB+16, GETSUB+17, GETSUB+18 |
| >> OLD | DESCRIBE+4*, DESCRIBE+45, DESCRIBE+46 |
| PARMS | SETUP~ |
| PARMS( | SETUP+40 |
| PARMS("ARY" | SETUP+2 |
| PARMS("BOT" | SETUP+6 |
| PARMS("TOP" | SETUP+4 |
| POS | SETUP~ |
| POS("CURRENT | DELIMITER" , SETUP+45*, HELP+11 |
| POS("NEXT DEL | IMITER" , SETUP+46*, DESCRIBE+27, DESCRIBE+34 |
| POS("TOP" | SETUP+44* |
| QUIT | SETUP+1~, SETUP+11, SETUP+12*, SETUP+15* |
| >> REP | SETUP+26*, SETUP+29, DESCRIBE+12, DESCRIBE+41 |
| REPEAPT | DESCRIBE+16~ |
| >> REPEAT | DESCRIBE+19*, DESCRIBE+20*, DESCRIBE+21 |
| SEG | SETUP~, GETSEG~, GETSEG+4, GETSEG+5, GETFLD~, GETFLD+5, GETFLD+6, GETCOMP~, GETCOMP+5, GETCOMP+6 , GETSUB~, GETSUB+5, GETSUB+6 |
| SEG( | SETUP+40* |
| SEGIEN | GETSEG+3*, GETSEG+4*, GETSEG+5*, GETSEG+6, GETSEG+7, GETFLD+2~, GETFLD+4*, GETFLD+5*, GETFLD+6*, GETFLD+7 , GETFLD+8, GETFLD+10, GETCOMP+2~, GETCOMP+4*, GETCOMP+5*, GETCOMP+6*, GETCOMP+7, GETCOMP+8, GETCOMP+10, GETCOMP+12 , GETSUB+2~, GETSUB+4*, GETSUB+5*, GETSUB+6*, GETSUB+7, GETSUB+8, GETSUB+10, GETSUB+12, GETSUB+14 |
| >> SEGLINE( | SETUP+36, SETUP+40* |
| SEGMENT | SEGSTART~, SEGSTART+1 |
| >> SEGTYPE | SETUP+30*, DESCRIBE+5, DESCRIBE+6, DESCRIBE+7, DESCRIBE+9, DESCRIBE+17, DESCRIBE+28, DESCRIBE+34 |
| SET | FLD~, FLD+1, REP~, REP+1, COMP~, COMP+1, SUB~, SUB+1 |
| STRING | LJ~, LJ+1 |
| SUB | SETUP+28*, SETUP+29, SETUP+34, DESCRIBE+14, DESCRIBE+28, DESCRIBE+34, DESCRIBE+41, GETSUB~, GETSUB+12 |
| SUBCOMP | SETUP+33~, SETUP+34* |
| SUBIEN | GETSUB+2~, GETSUB+12*, GETSUB+13, GETSUB+14 |
| TMP | SETUP+1~, SETUP+2*, SETUP+3, SETUP+21 |
| TO | LINE~, LINE+1, X~, X+2 |
| TOP | SETUP+1~, SETUP+4*, SETUP+5, SETUP+17, SETUP+21, SETUP+40 |
| VAL | DESCRIBE+1~, DESCRIBE+6, DESCRIBE+17, DESCRIBE+28, DESCRIBE+34, DESCRIBE+40~, DESCRIBE+41*, DESCRIBE+42 |
| VAL("DATA TYP | E" , DESCRIBE+24, DESCRIBE+32, DESCRIBE+38 |
| VAL("ID" | DESCRIBE+21 |
| VAL("MAX LENG | TH" , DESCRIBE+21 |
| VAL("NAME" | DESCRIBE+7, DESCRIBE+18, DESCRIBE+29, DESCRIBE+35 |
| VAL("REPETITION" | DESCRIBE+19 |
| VAL("TABLE" | DESCRIBE+24, DESCRIBE+32, DESCRIBE+38 |
| VALUE | DESCRIBE+41, GETSEG~, GETFLD~, GETCOMP~, GETSUB~ |
| VALUE( | GETFLD+3*, GETCOMP+3*, GETSUB+3* |
| VALUE("DATA T | YPE" , GETFLD+13*, GETCOMP+14*, GETSUB+16* |
| VALUE("ID" | GETFLD+17* |
| VALUE("MAX LE | NGTH" , GETFLD+12* |
| VALUE("NAME" | GETSEG+2*, GETSEG+8*, GETFLD+11*, GETCOMP+13*, GETSUB+15* |
| VALUE("OPTIONALITY" | GETFLD+14*, GETCOMP+15*, GETSUB+17* |
| VALUE("REPETITION" | GETFLD+15* |
| VALUE("TABLE" | GETFLD+16*, GETCOMP+16*, GETSUB+18* |
| VALUES | GETFLD+1!, GETCOMP+1!, GETSUB+1! |
| VERSION | SETUP+38*, DESCRIBE+6, DESCRIBE+17, DESCRIBE+28, DESCRIBE+34, GETSEG~, GETSEG+4, GETFLD~, GETFLD+5, GETCOMP~ , GETCOMP+5, GETSUB~, GETSUB+5 |
| X | IOXY~, IOXY+1 |
| Y | IOXY~, IOXY+1 |