home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
cdcr206a.zip
/
SRI.ZIP
/
TEST2.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1993-02-20
|
2KB
|
69 lines
/**/
address CMD 'rxsubcom drop msgapi'
address CMD 'rxsubcom register MSGAPI rxmsgapi RXMSGAPI'
say rc
address CMD 'rxsubcom load MSGAPI RXMSGAPI'
say rc
address MSGAPI
'OPEN_API 3 0'
say rc
'VALIDATE SQUISH D:\APP\TEST_MSGBASE\OS2PROG'
say rc
'OPEN_AREA MSG D:\APP\TEST_MSGBASE\OS2PROG MSGAREA_NORMAL SQUISH'
say rc
'VALID_AREA_HANDLE MSG'
say rc
number = 10
'MSGN_TO_UID MSG NUMBER'
if rc = 0 then say 'UID' number
else say 'RC' rc
'UID_TO_MSGN MSG NUMBER EXACT'
if rc = 0 then say 'MSG' number
else say 'RC' rc
'OPEN_MSG MSGH MSG MOPEN_READ 10'
say rc
'GET_HIGH_WATER MSG NUMBER'
if rc = 0 then say 'HW' number
else say 'RC' rc
nnumber = 123
'SET_HIGH_WATER MSG NNUMBER'
if rc = 0 then say 'HW' nnumber
else say 'RC' rc
'GET_HIGH_WATER MSG NNUMBER'
if rc = 0 then say 'HW' nnumber
'SET_HIGH_WATER MSG NUMBER'
if rc = 0 then say 'HW' number
else say 'RC' rc
'GET_HIGH_WATER MSG NUMBER'
if rc = 0 then say 'HW' number
else say 'RC' rc
'GET_HIGH_MSG MSG NNUMBER'
if rc = 0 then say 'HMSG' nnumber
else say 'RC' rc
'GET_NUMBER_MSGS MSG NUMBER'
if rc = 0 then say 'Number' number
else say 'RC' rc
'GET_CURRENT_MSG MSG NUMBER'
if rc = 0 then say 'Current' number
else say 'RC' rc
'VALID_MESSAGE_HANDLE MSGH'
say rc
'GET_TEXT_LENGTH MSGH LEN'
if rc = 0 then say 'Len' len
else say 'RC' rc
'GET_CONTROL_LENGTH MSGH LEN'
if rc = 0 then say 'Len' len
else say 'RC' rc
'GET_CURRENT_POSITION MSGH POSITION'
say rc
say position
'CLOSE_MSG MSGH'
say rc
'CLOSE_AREA MSG'
say rc
'CLOSE_API'
say rc
address CMD 'rxsubcom drop msgapi'
say rc
call syssleep 3