d 	.TITLE	IGETCMD	SUBROUTINE TO GET THE COMMAND LINE
È  
,;
; SAMPLE SUBROUTINE THAT GETS THE COMMAND LINE AND RETURNS IT TO USER.
ô;
X; THIS IS INVOKED BY THE FOREIGN COMMAND CAPIBILITY OF DCL
¼;   INITIATING THE CALLING IMAGE.  THE CALLING IMAGE THEN CALLS
 ;   GETCMD TO PICK UP THE COMMAND LINE IN ITS ENTIRETY.
„;
è;   NOTE THIS ROUTINE ASSUMES THAT THE CALLER CAN DETECT THE END
L;     OF THE COMMAND LINE.
°;  
;   THE COMMAND LINE IS PASSED BACK AS AN MSATRAN CONVENTION.
x;     TEXT IN A VECTOR AND A SEPARATE LENGTH DESCRIPTOR
Ü;
@; IE:   IN THE CALLING PROCESS TERMINAL SESSION OR COMMAND PROC,
¤;       DEFINE THE FOLLOWING COMMAND EQUATE
;
l; mycmd :==$'F$LOGICAL("SYS$DISK")'[directory]file
Ð;
4; WHERE:
˜;	mycmd IS THE COMMAND VERB YOU WOULD TO USE TO INVOKE THE PROGRAM
ü;	directory AND file DEFINE WHERE THE IMAGE RESIDES
`	;
Ä	; THEN ENTER:
(
;
Œ
; mycmd <...data for the program...>
ð
;
T;
¸;
; TO OBTAIN THE COMMAND LINE EXECUTE THE FTN CALL:
€;
ä;    LENTXT = IGETCMD (CMDTXT,MAXLEN)
H;
¬;		  CMDTXT IS BUFFER TO RECIEVE COMMAND LINE
;		  MAXLEN IS SIZE OF CMDTXT BUFFER IN BYTES
t;		  LENTXT IS SIZE OF RETURNED TEXT IN BYTES
Ø;		  CMDTXT IS BLANK FILLED TO THE RIGHT IF LENTXT<MAXLEN
<;
 ;    TEXT IS TRUNCATED IF COMMAND LINE TOO BIG FOR BUFFER
;
h;	BEGIN DEFINITION OF ARGUMENTS
Ì;
0	NPARAMS=0
”	DEST=4
ø	MAXLEN=8
\;
À;
$;	DEFINE COMMUNICTIONS REGION WITH SYSTEM CLI ROUTINE
ˆ;
ì	$CLISERVDEF			; DEFINE CLI SERVICE COMMAND
P	.PSECT	RWDATA,RD,WRT,NOEXE,LONG
´DESCMD:	$CLIREQDESC	CLI$K_GETCMD	; DEFINE REQUEST DESCRIPTOR FOR GET COMMAND
	.PSECT	PURE,RD,EXE,BYTE
|	.ENTRY	IGETCMD,^M<R2,R3,R4,R5,R6>	; PROGRAM ENTRY
à	PUSHAB	L^DESCMD		; ADDRESS OF REQUEST DESCRIPTOR
D	CALLS	#1,G^SYS$CLI		; REQUEST COMMAND LINE FROM CLI
¨;
;	SEND COMMAND LINE TO USER BUFFER
p;
Ô	CVTWL	@MAXLEN(AP),R2		; GET LEN OF SHORTER AREA
8	CMPW	R2,DESCMD+CLI$W_RQSIZE
œ	BLEQ	MOV1
 	MOVW	DESCMD+CLI$W_RQSIZE,R2		; AS LEN TO MOVE
dMOV1:	MOVW	R2,LENSTR			; SEND AS RESULT IN I*2
È	MOVL	DESCMD+CLI$A_RQADDR,R3		; SRC ADDS FOR MOVE
,	MOVC5	R2,(R3),FIL,@MAXLEN(AP),@DEST(AP)		; MOVE TEXT
	CVTWL	LENSTR,R0				; SET FUNCTION RETURN OF LENGTH
ô	RET				; ALL DONE
XFIL:	.ASCII	/ /	; FILL CHARACTER FOR MOVE C5
¼LENSTR:	.WORD	0	; LENTGH OF STRING
 	.END