Developer Guide and Reference

ID 767251
Date 10/31/2024
Public
Document Table of Contents

GETSTRQQ

Runtime Function: Reads a character string from the keyboard using buffered input.

Module

USE IFCORE

result = GETSTRQQ (buffer)

buffer

(Output) Character*(*). Character string returned from keyboard, padded on the right with blanks.

Results

The result type is INTEGER(4). The result is the number of characters placed in buffer.

The function does not complete until you press Return or Enter.

Example

! Program to demonstrate GETSTRQQ USE IFCORE USE IFPORT INTEGER(4) length, result CHARACTER(80) prog, args WRITE (*, '(A, \)') ' Enter program to run: ' length = GETSTRQQ (prog) WRITE (*, '(A, \)') ' Enter arguments: ' length = GETSTRQQ (args) result = RUNQQ (prog, args) IF (result .EQ. -1) THEN WRITE (*,*) 'Couldn''t run program' ELSE WRITE (*, '(A, Z4, A)') 'Return code : ', result, 'h' END IF END