HP 3000 Computer Systems HP TRANSACT Quick Reference Guide ABCDE HP Part No. 32247-90020 Printed in U.S.A.
The information contained in this document is subject to change without notice. HEWLETT-PACKARD MAKES NO WARRANTY OF ANY KIND WITH REGARD TO THIS MATERIAL, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. Hewlett-Packard shall not be liable for errors contained herein or use of this material. Hewlett-Packard assumes no responsibility for the use or reliability of its software on equipment that is not furnished by Hewlett-Packard.
Contents 1. Transact Verbs CALL . . . CLOSE . . DATA . . . DEFINE . . DELETE . DISPLAY . END . . . EXIT . . . FILE . . . FIND . . . FORMAT . GET . . . GO TO . . IF . . . . INPUT . . LET . . . LEVEL . . LIST . . . LOGTRAN MOVE . . OUTPUT . PATH . . . PERFORM PROC . . . PROMPT . PUT . . . REPEAT . REPLACE . RESET . . RETURN . SET . . . . SYSTEM . UPDATE . WHILE . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
2. Running Transact 3. Test Facility (Transact/V) 4. TRANDEBUG Commands (Transact/iX) Compiler Output Commands . . . . . . . . . . . System Dictionary Commands . . . . . . . . . . Conditional Compile Commands . . . . . . . . . Transact/V Program Compilation . . . . . . . . . Formal File Designators for Transact/V Compilation Transact/V Program Execution . . . . . . . . . . Formal File Designators for Transact/V Execution . Transact/iX Compilation and Execution . . . . . .
MODIFY INPUT . . . MODIFY ITEM . . . MODIFY KEY . . . . MODIFY MATCH . . MODIFY STATUS . . MODIFY UPDATE . . NMDEBUG . . . . . PAGE BACK . . . . PAGE FORWARD . . PAGE JUMP . . . . . PRINT . . . . . . . REPEAT . . . . . . SORT . . . . . . . . STEP . . . . . . . . TPRINT . . . . . . . TRACE . . . . . . . USE . . . . . . . . . VERSION . . . . . . WINDOW LENGTH . WINDOW OFF . . . WINDOW ON . . . . TRANDEBUG Files . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1 Transact Verbs CALL CALL le-name[([password,][mode])][,option-list]; OPTIONS DATA=item-name[(subscript)] SIZE=number SWAP INFORM REPORT STATUS Example CALL INVMGT ("PASS",7),DATA=ORDER,SIZE=1000,STATUS; CLOSE 2 3 CLOSE source ,option-list ; SOURCE le-name $FORMLIST $PRINT $VPLS set-name(base-name) @[(base-name )] - MPE or KSAM file VPLUS spool file TRANLIST print file active formfile IMAGE dataset IMAGE database OPTIONS ERROR=label([item-name]) NOMSG STATUS Example CLOSE KDATA; Transact Ve
DATA DATA[(modi er)][item-name][("prompt-string")][,option-list][:item-name...]...
DEFINE DEFINE(modi er) de nition-list ; MODIFIERS ENTRY - Defines a program control label INTRINSIC - Defines MPE intrinsic to be called ITEM - Defines one or more items, a synonym, a marker item DEFINITION WITH DEFINE(ENTRY) label[:label] DEFINITION WITH DEFINE(INTRINSIC) intrinsic-name[:intrinsic-name] DEFINITION WITH DEFINE(ITEM) item-name[count] [type(size[,decimal-length[,storage-length]])] [=parent-name[(position)]] [,ALIAS=(alias-reference)] [,COMPUTE=arithmetic-expression] [,EDIT="edit-mask"] [,EN
DELETE 2 3 2 3 DELETE (modi er) source ,option-list ; MODIFIERS none - Deletes from master set CHAIN - Deletes from detail set or KSAM file based on key CURRENT - Deletes last entry accessed from KSAM file or data set DIRECT - Deletes entry at specified record number in KSAM file or data set PRIMARY - Deletes from master set at the primary location RCHAIN - Same as CHAIN in reverse order for a data set; same as CHAIN for KSAM file RSERIAL - Same as SERIAL in reverse order for data set; same as SERIAL f
DISPLAY 2 2 DISPLAY ( TABLE 32 3 32 ,FILE=mpe- le ) 3 display-list . . . ; DISPLAY LIST display- eld[,format-parm]... [:display- eld[,format-parm]...
END 2 3 END modi er ; MODIFIERS none (LEVEL) system-name (SEQUENCE) Example END PROG1; EXIT EXIT; Example EXIT; 1-6 Transact Verbs - Ends the command sequence Ends the current level Ends the executing program file Returns to command level
FILE 3 2 FILE(modi er) le-name ,option-list ; MODIFIERS CLOSE CONTROL OPEN READ SORT UPDATE WRITE - Closes the file Performs an FCONTROL operation Opens the file Reads record from the file Sorts the file Replaces current record Writes record to file OPTIONS WITH CONTROL CODE=number PARM=item-name[(subscript)] OPTION WITH OPEN, READ, UPDATE, and WRITE LIST=(range-list) OPTION WITH SORT 8 < SORT=(range-list) 9 = (ASC) (ASC) . . .
FIND 2 3 2 3 FIND (modi er) source ,option-list ; MODIFIERS none - Retrieves from master set CHAIN - Retrieves from detail set or KSAM file based on key CURRENT - Retrieves last entry accessed from KSAM file, data set.
FORMAT FORMAT display-list; DISPLAY LIST display- eld[,format-parm]... [:display- eld[,format-parm]...
GET 2 3 2 3 GET (modi er) source ,option-list ; MODIFIERS none - Retrieves from master set CHAIN - Retrieves from detail set or KSAM file based on key CURRENT - Retrieves last entry accessed from KSAM or MPE file or data set DIRECT - Retrieves entry at specified record number FORM - Displays VPLUS form and retrieves data KEY - Calculated access on master set PRIMARY - Retrieves from master set at the primary location RCHAIN - Same as CHAIN in reverse order for data set; same as CHAIN for KSAM file RSER
FKEY=item-name[(subscript)] Fn[(AUTOREAD)]=label FREEZE INIT LIST=(range-list) STATUS WINDOW=([ eld,]message) Examples GET(DIRECT) ORDER-D,LIST=(CUSTNUM:QTY),RECNO=REC; GET(FORM)FORM1,INIT,LIST=(), WINDOW=(field1,"This field must be numeric"); GO TO GO TO label; Example GO TO PARA1; Transact Verbs 1-11
IF IF condition-clause THEN statement [ELSE statement]; CONDITION CLAUSE test-variable relational-operator value[,value...][{AND|OR} ...
INPUT 3 2 INPUT "prompt-string" ,option-list ; OPTIONS BLANKS NOECHO STATUS Example INPUT "Do you want the report on printer? (Y/N)"; LET 2 2 2 3 33 LET destination-variable = arithmetic-expression ,ERROR=label ( item-name ) DESTINATIONS (item-name) LINE OFFSET(item-name) PAGE PLINE STATUS TLINE - ; Value of the line counter The offset of a child item Value of the page counter Line counter for printer output Value of the status register Line counter for terminal output ARITHMETIC EXPRESSION [-]
FUNCTIONS ASCII(item-name|value) LENGTH(item-name|value) LN(item-name|value) LOG(item-name|value) POSITION(item-name|value, item-name|value); SQRT(item-name|value) VALUE(item-name|value) Example LET (ONHAND)=(ONHAND)-(QTY); LET (S-LENGTH) = LENGTH(STRING); LEVEL LEVEL[(label([item-name]))]; Example LEVEL(finished-level()); 1-14 Transact Verbs
LIST 3 2 2 LIST (modi er) item-name1 ,option-list MODIFIERS none AUTO KEY MATCH PATH UPDATE - Adds Adds Adds Adds Adds Adds 32 2 :item-name2 ,option-list 33 . ..
Example LIST CUSTNO,INIT: CUSTNAME,INIT: USERNAME,INIT; LOGTRAN 2 3 LOGTRAN(modi er) base, log-message ,option-list ; MODIFIERS BEGIN END MEMO XBEGIN XEND XUNDO Writes a DBBEGIN log record Writes a DBEND log record Writes a DBMEMO log record Writes an XBEGIN Transaction Manager log record and starts a dynamic transaction - Writes an XEND Transaction Manager log record and ends a dynamic transaction - Writes an XUNDO Transaction Manager log record and undoes a dynamic transaction OPTIONS NOMSG STATUS
MOVE MOVE (item-name)=source-expression; SOURCE EXPRESSION [-](item-name[(subscript)]) [-]"character-string" [-]string-function format-function source1 {+|-} source2 {+|-} ...
SOURCE le-name set-name[(base-name)] OPTIONS ERROR=label([(item-name)]) LIST=(range-list) LOCK NOCOUNT NOHEAD NOMATCH NOMSG PERFORM=label RECNO=item-name[(subscript)] SINGLE SOPT (ASC) [,item-name . . .
PATH 2 3 PATH source ,option-list ; SOURCE le-name set-name[(base-name)] OPTIONS ERROR=label([item-name]) LIST=(range-list) NOMSG STATUS Example PATH ORDER-D,NOMSG; PERFORM PERFORM label; Example PERFORM PRINT-PARA; Transact Verbs 1-19
PROC 2 PROC procedure-name (parameter-list) 32 3 ,option-list ; PARAMETER LIST (item-name[(subscript)]) ARG ARGLNG BASE[(base-name)] BASELNG[(base-name)] BYTE(item-name) COUNT(item-name) DECIMAL(item-name) FILEID( le-name) INPUT INPUTLNG ITEM(item-name) ITEMLNG(item-name) KEY KEYLNG POSITION(item-name) SET(set-name) SETLNG(set-name) SIZE(item-name) STATUS STATUS(DB) STATUS(IN) TYPE(item-name) VCOM(form- le) PARAMETER PREFIXES % - Passes by byte address # - Passes by value & - Copies function value of
PROMPT PROMPT[(modi er)]item-name[("prompt-string")][,option-list] [:item-name[("prompt-string")][,option-list]]...
PUT 2 3 2 3 PUT (modi er) destination ,option-list ; MODIFIERS none FORM DESTINATIONS set-name[(base-name)] le-name DESTINATIONS WITH FORM MODIFIER form-name (item-name[(subscript)]) * & - the CURRENT FORM name - the NEXT FORM name OPTIONS LIST=(range-list) STATUS OPTIONS WITHOUT THE FORM MODIFIER ERROR=label([item-name]) LIST=(range-list) LOCK NOMSG RECNO=item-name[(subscript)] STATUS OPTIONS WITH ONLY THE FORM MODIFIER APPEND CLEAR CURRENT CURSOR= eld-namejitem-name[(subscript)] FEDIT FKEY=item-
Example PUT ORDER-D,LIST=(CUSTNO:QTY); REPEAT REPEAT statement UNTIL condition-clause; CONDITION CLAUSE test-variable relational-operator value[,value...][{AND|OR}...
REPLACE 2 3 2 3 REPLACE (modi er) source ,option-list ; MODIFIERS none - Updates master set entry CHAIN - Updates detail or KSAM chain based on key CURRENT - Updates last entry accessed from file or data set DIRECT - Updates entry at specified record number PRIMARY - Updates master set at primary location RCHAIN - Same as CHAIN in reverse order for data set; same as CHAIN for KSAM file RSERIAL - Same as SERIAL in reverse order for data set; same as SERIAL for MPE or KSAM file SERIAL - Updates entries i
RESET 3 2 RESET(modi er) target ; MODIFIERS COMMAND DELIMITER LANGUAGE OPTION PROPER STACK - Clears Resets Resets Resets Resets Resets user response from buffer delimiters to default language various execution parameters delimiters for upshifting the next letter list register pointer TARGET WITH STACK MODIFIER LIST TARGETS WITH OPTION MODIFIER AUTOLOAD END FIELD FORMSTORE=(form-store-list) [item-name] )] MATCH [LIST( * NOHEAD NOLOCK NOLOOKAHEAD PRINT SORT SUPPRESS TPRINT UPDATE [LIST( [i
SET SET(modi er) target; MODIFIERS COMMAND DELIMITER FORM KEY LANGUAGE MATCH OPTION PROPER STACK UPDATE - Invokes command mode Changes delimiters Specifies transfer to VPLUS buffer Sets value of key and argument register Specifies language Sets up match register Sets execution parameters Sets delimiters for upshifting the next letter Sets list register pointer Sets value of update register TARGETS WITH COMMAND EXIT INITIALIZE COMMAND[(command-label)]"input-string" TARGET WITH DELIMITER,PROPER "delimiter
OPTIONS WITH FORM MODIFIER APPEND CLEAR CURSOR= eld-namejitem-name[(subscript)]) FEDIT FREEZE INIT LIST=(range-list) WINDOW=([ eld],message) TARGETS WITH OPTION MODIFIER AUTOLOAD DEPTH=number END=label FIELD[="ab"] FORMSTORE=(form-store-list) HEAD LEFT NOBANNER NOHEAD NOLOCK NOLOOKAHEAD PALIGN=number PDEPTH=number PRINT PROMPT=number PWIDTH=number REPEAT RIGHT SORT SUPPRESS TABLE TPRINT VPLS=item-name[(subscript)] WIDTH=number ZERO[E]S Examples SET(OPTION) PRINT; SET(FORM) LIST-FORM,LIST=(LIST-DATE), WINDO
SYSTEM SYSTEM program-name[,de nition-list]; DEFINITIONS BANNER="text" BASE=base-name1[(["password"][,mode] [,optlock][,[basetype]]]])] [,base-name2[(["password"][,mode] [,optlock][,[basetype]]]])]]... DATA=data-length,data-count FILE= le-name1[(access[( le-option-list)] [,rec-length[,blocking-factor [, le-size[,extents[,initial-allocation [, le-code]]]]]])]... FSTORESIZE=formstoresize KSAM= le-name1[(access[( le-option-list)])]...
UPDATE 2 3 2 3 UPDATE (FORM) destination ,option-list ; DESTINATIONS le-name set-name[(base-name)] DESTINATIONS WITH FORM form-name (item-name[(subscript)]) * - the CURRENT FORM name & - the NEXT FORM name OPTIONS ERROR=label([item-name]) LIST=(range-list) LOCK NOMSG STATUS OPTIONS WITH FORM APPEND CLEAR CURSOR= eld-namejitem-name[(subscript)] FEDIT FKEY=item-name[(subscript)] Fn=label FREEZE INIT LIST=(range-list) STATUS WAIT=[Fn] WINDOW=([ eld,]message) Examples UPDATE ORDER-D,LIST=(DATE); UPDATE
WHILE WHILE condition-clause statement; CONDITION CLAUSE test-variable relational-operator value[,value...][{AND|OR}...
2 Running Transact Compiler Output Commands !COPYRIGHT("text-string") !INCLUDE( le-name) !LIST !NOLIST !PAGE !SEGMENT[("text-string")] System Dictionary Commands !SYSDIC[(dictionary.group.
Transact/V Program Compilation :RUN TRANCOMP.PUB.
Formal File Designators for Transact/V Compilation TRANCODE TRANIN TRANLIST TRANOUT TRANTEXT Name of the le opened and used by the compiler. Default size is 1023 records. Formal le designator for responses to prompts issued by compiler. Default is $STDINX. Formal le designator for destination of compiler listings when LP is the response to the LIST FILE prompt. Formal le designator for output from the compiler that by default, is sent to the standard list device.
Transact/iX Compilation and Execution TRANXL [text le] [,[rl le] [,[list le]]] [;INFO="compiler-options"] RUN TRAN.PUB.SYS [;PARM=parmnum] [;INFO="compiler-options"] LINKEDIT LINK [FROM= le[, le]...
PROCALIGNED_16 PROCALIGNED_32 PROCALIGNED_64 PROCINTRINSIC SUBPROGRAM TRANDEBUG XREF DEFAULTS: NODYNAMIC_CALLS NOHP3000_16 NOPROCALIGNED NOPROCINTRINSIC NOOPTIMIZE Note You can precede any of the above options with \NO" to reverse its e ect. For example, NOXREF. Formal File Designators for Transact/iX Compilation TRANLIST TRANOBJ TRANTEXT Formal le designator for output from the compiler that, by default, is sent to the standard list device. The default is $STDLIST. Formal le designator of the RSOM le.
TRANVPLS Name of the le used by the processor to open the VPLUS terminal. Architected Call Interface (ACI) TL_CALL_TRANSACT (program name, data bu er, data length, return status) program name data bu er data length return status 2-6 Name of Transact/iX subprogram to call. Must be terminated with a blank. User de ned structure for passing data to and from subprogram. Maximum data register size (in bytes) in subprogram. Status value indicating success or failure of the intrinsic call.
3 Test Facility (Transact/V) Enabling Test Modes RUN TRANSACT.PUB.SYS SYSTEM NAME> PROG1,,test-parameter[,[segment1.]starting-instru ction-address] [,[segment2.]ending-instruction-address] or 4Ctrl5Y >TEST [test-parameter [,[segment1.]starting-instruction-address [,[segment2.]ending-instruction-address]] Example TEST 44,0,333 Test Parameters PARM FUNCTION ||| none 1 2 3 |||||| Switches o existing test mode. Displays information about the le or database operation if error occurs.
34 42 43 44 101 102 121 122 123 3-2 Displays the instruction address, compiler code, and contents of the VPLUS bu er following an instruction generated by a statement that references a VPLUS form. Displays the instruction address and compiler code only if the instruction is not listed in the compiler listing. Displays contents of the list and data registers whenever the contents of list register changes.
4 TRANDEBUG Commands (Transact/iX) : Allows access to the MPE/iX Command Interpreter. : 2 COMMAND 3 ABORT Terminates execution of the Transact/iX program and exits TRANDEBUG. ABORT AUTORPT Allows you to repeat the last command typed by pressing the 4Return5 key. AUTORPT AR ON OFF BREAK DELETE Deletes a speci ed breakpoint.
BREAK SET Sets a breakpoint at the speci ed location. BREAK SET BS 32 2 o set ,segment ,system system 3 2 ,count 32 ,{cmdlist} 3 CONTINUE Continues execution of the Transact/iX program until a breakpoint is encountered or the program completes execution. CONTINUE C DATA BREAK DELETE Deletes a speci ed data breakpoint.
DATA BREAK SET Sets a breakpoint at the speci ed location. 2 2 2 8 9333 DATA BREAK SET , cmdlist ,length ,count 2 8 93 item name ,rel-op ,value , cmdlist DBS DATA LOG Allows logging of TRANDEBUG commands and output to a le. DATA DL 2 3 filename 7 LOG 6 ON 6 7 4 OFF 5 CLOSE DEFN Displays information about the de nition of a particular item. DEFN item name DISPLAY BASE Displays information for speci c databases.
DISPLAY COMAREA Displays the contents of the currently active VPLUS communication area (comarea). DISPLAY COMAREA DCO DISPLAY FILE Displays information for speci c MPE/KSAM les. DISPLAY FILE DF 2 file_name 3 DISPLAY INPUT Displays the contents of the input register. DISPLAY INPUT DIN DISPLAY ITEM Displays the value of an item or all items in the data register.
DISPLAY MATCH Displays the contents of the match register. DISPLAY MATCH DM DISPLAY PERFORMS Displays the current PERFORM stack. DISPLAY PERFORMS DP 2 ALL 3 DISPLAY STATUS Displays the value in the status register. DISPLAY STATUS DS DISPLAY STATUSDB Displays the contents of the database status array returned by the last TurboIMAGE/XL call. DISPLAY STATUSDB DSDB DISPLAY STATUSIN Displays the value in the statusin register.
EDIT Invokes HP EDIT from within TRANDEBUG, allowing you to edit or browse source les. 2 EDIT filename 3 HELP Provides online assistance for TRANDEBUG. 2 33 2 ALL 4 PARMS 57 HELP 6 6 command 7 4 EXAMPLES 5 ? HELPINSTRUCTIONS LABEL BREAK SET Sets a breakpoint at the speci ed label. 2 8 9333 2 2 LABEL BREAK SET label ,segment ,count , cmdlist LBS LABEL JUMP Moves the source code window to a speci c label in the code.
LOG Allows logging of TRANDEBUG commands to an MPE/iX le. 2 LOG lename 6 ON 6 4 OFF 3 7 7 5 CLOSE MODIFY INPUT Modi es the contents of the input register. MODIFY INPUT MIN 2 new value 3 MODIFY ITEM Modi es the value of a data item in the data register. 32 3 2 MODIFY ITEM item name (subscript) new value MIT MODIFY KEY Modi es the item in the key register. MODIFY KEY MK 2 new item 3 MODIFY MATCH Modi es the speci ed item in the match register.
MODIFY STATUS Modi es the value in the status register. MODIFY STATUS MS 2 new value 3 MODIFY UPDATE Modi es the speci ed item in the update register. 32 3 2 MODIFY UPDATE item name (subscript) new value MU NMDEBUG Transfers control from TRANDEBUG to NMDEBUG. NMDEBUG NM PAGE BACK Pages back the source code window in the source le. PAGE BACK PB PAGE FORWARD Pages the source code window forward in the source le.
PRINT Alters or displays the Transact/iX PRINT option. ON PRINT OFF REPEAT Alters or displays the Transact/iX REPEAT option. ON REPEAT OFF SORT Alters or displays the Transact/iX SORT option. ON SORT OFF STEP Continues execution of the Transact/iX program for the speci ed number of statements. STEP S 2 number of steps 3 TPRINT Alters or displays the Transact/iX TPRINT ag to format the output generated from the DISPLAY or OUTPUT verbs for printing.
TRACE Turns the trace ag on or o for the speci ed type of trace. TRACE TR 8 9 < CODE = : IMAGE ; MPE ON OFF USE Reads TRANDEBUG commands from the speci ed MPE/iX le. USE lename VERSION Outputs the current version of the Transact/iX run time library. VERSION WINDOW LENGTH Adjusts the size of the source code window. WINDOW LENGTH new size WL WINDOW OFF Turns the source code window o . WINDOW OFF WOFF WINDOW ON Turns on the source code window.
TRANDEBUG Files DATA LOG LOG USE The DATA LOG le is established and controlled via the DATA LOG command. The le records the user input from TDBUGIN as well as the output to TDBUGOUT. The actual le name for this le can be found in data log le name . The LOG le is established and controlled via the LOG command. The le records the user input from TDBUGIN so that it can be used later as a use le. The actual le name for this le can be found in log le name . The USE le can be assigned via a USE command.
