- Contents
Interaction Host Recorder Help
Sample Profile (.hcs file)
This topic contains the text found in a fully functional host profile. While we do not recommend that you create or edit host profiles manually, this profile serves as an sample of the types of commands you will find in a host profile. See Host Profile Grammar (.hcs files) for more information on the individual commands found in a host profile.
################################################
##### IC Host Connectivity Script --- Do Not Modify! #####
CONNECTION LibOfCongress
HOSTTYPE = Mainframe
DRIVER = "I3WdExpMFDriver", "I3WdExpMFDriver"
INTERFACE = TN3270
ADDRESS = "locis.loc.gov"
PORT = 23
MODE = 24x80
EXTATTR = TRUE
TIMEOUT = 30
SCREEN CommentsAndLogoff
VALIDATION(5000) = ID(-679864668),
StringAt(68, 24, "COMMENTS/OFF ", FALSE),
IsReadyToSend;
SCREEN CopyrightDocumentFile
VALIDATION(5000) = ID(7355349),
StringAt(1, 2, "***COHD- THE COPYRIGHT DOCUMENTS FILE", FALSE);
SCREEN CopyrightInfo
VALIDATION(5000) = StringAt(68, 24, "COPYRIGHT ", FALSE),
ID(-112686159);
SCREEN LocisCatalog
VALIDATION(3000) = StringAt(68, 24, "LC CATALOG", FALSE),
StringAt(*, *, "Choice", TRUE);
SCREEN MainScreen
VALIDATION(3000) = StringAt(68, 24, "LOCISMENU ", FALSE),
StringAt(*, *, "Choice", TRUE),
StringAt(7, 23, "Choice: ", FALSE),
CursorAt(16, 23),
IsReadyToSend;
FIELD Field1 = RelPos(52, 1, 12, FALSE, FALSE)
FIELD Field2 = RelStringBottomUp(1, "Choice:", 9, 0, 2, TRUE, FALSE, FALSE)
FIELD Field3 = StringDelimitedTopDown(1, "12", FALSE,"ch", TRUE, 0, 0, TRUE, TRUE)
FIELD Field4 = StringDelimitedTopDown(3, "Library", FALSE,"LOCIS", FALSE, 0, 0, FALSE, FALSE)
FIELD Line01 = AbsPos(1, 1, 80, FALSE, TRUE)
FIELD Line02 = AbsPos(1, 2, 80, FALSE, TRUE)
FIELD Line03 = AbsPos(1, 3, 80, FALSE, TRUE)
FIELD Line04 = AbsPos(1, 4, 80, FALSE, TRUE)
FIELD Line05 = AbsPos(1, 5, 80, FALSE, TRUE)
FIELD Line06 = AbsPos(1, 6, 80, FALSE, TRUE)
FIELD Line07 = AbsPos(1, 7, 80, FALSE, TRUE)
FIELD Line08 = AbsPos(1, 8, 80, FALSE, TRUE)
FIELD Line09 = AbsPos(1, 9, 80, FALSE, TRUE)
FIELD Line10 = AbsPos(1, 10, 80, FALSE, TRUE)
FIELD Line11 = AbsPos(1, 11, 80, FALSE, TRUE)
FIELD Line12 = AbsPos(1, 12, 80, FALSE, TRUE)
FIELD Line13 = AbsPos(1, 13, 80, FALSE, TRUE)
FIELD Line14 = AbsPos(1, 14, 80, FALSE, TRUE)
FIELD Line15 = AbsPos(1, 15, 80, FALSE, TRUE)
FIELD Line16 = AbsPos(1, 16, 80, FALSE, TRUE)
FIELD Line17 = AbsPos(1, 17, 80, FALSE, TRUE)
FIELD Line18 = AbsPos(1, 18, 80, FALSE, TRUE)
FIELD Line19 = AbsPos(1, 19, 80, FALSE, TRUE)
FIELD Line20 = AbsPos(1, 20, 80, FALSE, TRUE)
FIELD Line21 = AbsPos(1, 21, 80, FALSE, TRUE)
FIELD Line22 = AbsPos(1, 22, 80, FALSE, TRUE)
FIELD Line23 = AbsPos(1, 23, 80, FALSE, TRUE)
FIELD Line24 = AbsPos(1, 24, 80, FALSE, TRUE)
SCREEN MainScreenSel1
VALIDATION(5000) = StringAt(*, *, "Choice:", FALSE),
StringAt(68, 24, "LOCISMENU ", FALSE),
StringAt(7, 23, "Choice: 1 ", FALSE);
SCREEN NoLUsAvailable
VALIDATION(3000) = StringAt(1, 4, " No LUs available now, please try later", FALSE),
ID(298566241);
FIELD UserID = OrdU(1, FALSE, FALSE)
FIELD Password = OrdU(2, FALSE, FALSE)
FIELD NewPassword = OrdU(3, FALSE, FALSE)
FIELD Application = OrdU(4, FALSE, FALSE)
SCREEN Screen1
VALIDATION(5000) = StringAt(68, 24, "LOCISMENU ", FALSE),
StringAt(7, 23, "Choice: 2 ", FALSE),
ID(-185882193),
IsReadyToSend;
SCREEN Screen10
VALIDATION(5000) = CursorAt(17, 23),
StringAt(16, 23, " ", FALSE);
SCREEN Screen2
VALIDATION(5000) = ID(0),
Type(1);
SCREEN Screen3
VALIDATION(5000) = StringAt(7, 23, "Choice: 12", FALSE);
SCREEN Screen4
VALIDATION(5000) = StringAt(7, 23, "Choice: 12", FALSE);
SCREEN Screen5
VALIDATION(5000) = CursorAt(32, 9);
SCREEN Screen6
VALIDATION(5000) = CursorAt(52, 13);
SCREEN Screen7
VALIDATION(5000) = CursorAt(52, 13);
SCREEN Screen8
VALIDATION(5000) = CursorAt(58, 17);
SCREEN Screen9
VALIDATION(5000) = StringAt(7, 19, "The Organizations (NRCM) file is no longer created or supported by LC. It has been removed from LOCIS.", FALSE),
StringAt(7, 23, "Choice: 3 ", FALSE);
SCREEN SearchItemAfter1975
VALIDATION(3000) = StringAt(1, 2, "***LOC3- THE LIBRARY OF CONGRESS INFORMATION SYSTEM", FALSE);
FIELD Field1 = AbsPos(27, 23, 116, FALSE, FALSE)
SCREEN SearchItems1950to1974
VALIDATION(5000) = StringAt(16, 6, "LOC2 lists books cataloged 1950-74.", FALSE);
SCREEN SearchResultPg1
VALIDATION(3000) = StringAt(70, 1, "(BKS3)", FALSE);
FIELD Subjects = StringDelimitedTopDown(1, "SUBJECTS:", FALSE,"OTHER NAMES:", FALSE, 71, 0, FALSE, TRUE)
FIELD CallNumber = RelStringTopDown(1, "LC CALL NUMBER:", 16, 0, 64, FALSE, FALSE, TRUE)
FIELD LibEntry = StringDelimitedTopDown(1, "(BKS3)", FALSE,"LC CALL NUMBER", FALSE, 85, 0, FALSE, TRUE)
TRANSITION STARTUP -> MainScreen
COMMANDS = WaitForRTS(5000),
WaitForRTS(2000),
Validate(MainScreen);
TRANSITION CopyrightDocumentFile -> MainScreen
COMMANDS = Validate(CopyrightDocumentFile),
PressKey("exit"),
PressKey("@E"),
WaitForCursor(1, 1, 5000),
WaitForCursor(16, 23, 5000),
WaitForRTS(5000),
Validate(MainScreen);
TRANSITION CopyrightInfo -> CopyrightDocumentFile
COMMANDS = Validate(CopyrightInfo),
PressKey("3"),
PressKey("@E"),
WaitForCursor(1, 1, 5000),
WaitForCursor(27, 12, 5000),
WaitForRTS(5000),
Validate(CopyrightDocumentFile);
TRANSITION CopyrightInfo -> MainScreen
COMMANDS = Validate(CopyrightInfo),
PressKey("12"),
PressKey("@E"),
WaitForCursor(1, 1, 5000),
WaitForCursor(16, 23, 5000),
WaitForRTS(5000),
Validate(MainScreen);
TRANSITION LocisCatalog -> SearchItemAfter1975
COMMANDS = Validate(LocisCatalog),
PressKey("3@E"),
WaitForRTS(5000),
Validate(SearchItemAfter1975);
TRANSITION LocisCatalog -> MainScreen
COMMANDS = Validate(LocisCatalog),
PressKey("12"),
PressKey("@E"),
WaitForCursor(1, 1, 5000),
WaitForCursor(16, 23, 5000),
WaitForRTS(5000),
Validate(MainScreen);
TRANSITION LocisCatalog -> MainScreen
COMMANDS = Validate(LocisCatalog),
PressKey("12"),
PressKey("@E"),
WaitForCursor(16, 23, 1100),
WaitForRTS(1100),
Validate(MainScreen);
TRANSITION MainScreen -> LocisCatalog
COMMANDS = Validate(MainScreen),
PressKey("@T1@E"),
WaitForRTS(5000),
Validate(LocisCatalog);
TRANSITION MainScreen -> CopyrightInfo
COMMANDS = Validate(MainScreen),
PressKey("3"),
PressKey("@E"),
WaitForCursor(1, 1, 5000),
WaitForCursor(16, 23, 5000),
WaitForRTS(5000),
Validate(CopyrightInfo);
TRANSITION MainScreen -> SearchItemAfter1975
COMMANDS = Validate(MainScreen),
PressKey("1"),
PressKey("@E"),
WaitForCursor(1, 1, 5000),
WaitForCursor(17, 24, 5000),
WaitForRTS(5000),
PressKey("3"),
PressKey("@E"),
WaitForCursor(1, 1, 5000),
WaitForCursor(27, 23, 5000),
WaitForRTS(5000),
Validate(SearchItemAfter1975);
TRANSITION MainScreen -> MainScreen
COMMANDS = Validate(MainScreen),
PressKey("1"),
PressKey("@E"),
WaitForCursor(17, 24, 5000),
WaitForRTS(5000),
Validate(LocisCatalog),
PressKey("3"),
PressKey("@E"),
WaitForCursor(27, 23, 5000),
WaitForRTS(5000),
Validate(SearchItemAfter1975),
PressKey("booch"),
PressKey("@E"),
WaitForCursor(11, 23, 5000),
WaitForRTS(5000),
PressKey("b6"),
PressKey("@E"),
WaitForCursor(8, 19, 5000),
WaitForRTS(5000),
PressKey("exit"),
PressKey("@E"),
WaitForCursor(16, 23, 5000),
WaitForRTS(5000),
Validate(MainScreen);
TRANSITION MainScreen -> LocisCatalog
COMMANDS = Validate(MainScreen),
PressKey("1"),
PressKey("@E"),
Validate(LocisCatalog);
TRANSITION MainScreen -> Screen10
COMMANDS = Validate(MainScreen),
PressKey("1"),
PressKey("@E"),
WaitForCursor(17, 24, 1000),
WaitForRTS(1000),
PressKey("3"),
PressKey("@E"),
WaitForCursor(27, 23, 1100),
WaitForRTS(1100),
PressKey("radio"),
PressKey("@E"),
WaitForCursor(8, 18, 3600),
WaitForRTS(3700),
PressKey("2"),
PressKey("@E"),
WaitForCursor(8, 20, 1000),
WaitForRTS(1000),
PressKey("display item 2"),
PressKey("@E"),
WaitForCursor(65, 21, 1200),
WaitForRTS(1200),
PressKey("simsp"),
PressKey("@<"),
PressKey("@<"),
PressKey("@<"),
PressKey("@<"),
PressKey("@<"),
PressKey("newtons"),
PressKey("@<"),
PressKey("@E"),
WaitForCursor(8, 20, 1600),
WaitForRTS(1600),
PressKey("1"),
PressKey("@E"),
WaitForCursor(8, 20, 1000),
WaitForRTS(1000),
PressKey("exit"),
PressKey("@E"),
WaitForCursor(16, 23, 1400),
WaitForRTS(1400),
Validate(Screen10);
TRANSITION Screen9 -> LocisCatalog
COMMANDS = Validate(Screen9),
PressKey("@T"),
PressKey("1"),
PressKey("@E"),
WaitForCursor(17, 24, 1000),
WaitForRTS(1000),
Validate(LocisCatalog);
TRANSITION SearchItemAfter1975 -> MainScreen
COMMANDS = Validate(SearchItemAfter1975),
PressKey("@T"),
PressKey("exit"),
PressKey("@E"),
WaitForCursor(1, 1, 5000),
WaitForCursor(16, 23, 5000),
WaitForRTS(5000),
Validate(MainScreen);
# End of file #