SCRIPT TL_NGRID /**************************************************************************** Description: Reads G* / 6CQ-BAND A*NGRID into list FF1 Author: Jamie Nye Date: 04/13/12 ****************************************************************************/ VARIABLES RET_CODE = 0 &CTagtemp="" &CTprodpath="" &prodpath = "" &ngridItin = 0 // flag indicating global information has been initialized. cyclen=0 mwfile="" mwfileid=0 counter = 0 line_number = "" last_number = "" list_text = "" ROUTINES /*******************************BEGINNING OF SCRIPT************************/ BEGIN IF &ngridItin = 0 THEN GETEMPNBR(&CTagtemp) IF(&CTprodpath="")THEN &prodpath="" CALL("CVB_PROD.CSC") &CTprodpath=&prodpath ENDIF // BAND A mwfile=&CTprodpath+"\TL_NGBDA.lst" // JUMP_CURSOR(1) cyclen = 1 SEND (">G*/6CQ-BAND A*NGRID") XMIT counter = 6 last_number = "0" REPEAT READ_SCREEN (counter,1,3,line_number) WHILE line_number <> ")> " AND line_number <> "> " DO IF line_number > last_number THEN READ_SCREEN (counter,9,45,list_text) IF(cyclen=1)THEN OPEN(mwfile,WRITE_MODE,mwfileid,RET_CODE) cyclen=0 ELSE OPEN(mwfile,APPEND_MODE,mwfileid,RET_CODE) ENDIF WRITE(mwfileid,list_text,RET_CODE) CLOSE(mwfileid,RET_CODE) last_number = line_number ENDIF counter = counter + 1 READ_SCREEN (counter,1,3,line_number) ENDWHILE IF line_number = ")> " THEN SEND ("MD") XMIT counter = 1 ENDIF UNTIL (line_number <> ")> ") // BAND B mwfile=&CTprodpath+"\TL_NGBDB.lst" // JUMP_CURSOR(1) cyclen = 1 SEND (">G*/6CQ-BAND B*NGRID") XMIT counter = 6 last_number = "0" REPEAT READ_SCREEN (counter,1,3,line_number) WHILE line_number <> ")> " AND line_number <> "> " DO IF line_number > last_number THEN READ_SCREEN (counter,9,45,list_text) IF(cyclen=1)THEN OPEN(mwfile,WRITE_MODE,mwfileid,RET_CODE) cyclen=0 ELSE OPEN(mwfile,APPEND_MODE,mwfileid,RET_CODE) ENDIF WRITE(mwfileid,list_text,RET_CODE) CLOSE(mwfileid,RET_CODE) last_number = line_number ENDIF counter = counter + 1 READ_SCREEN (counter,1,3,line_number) ENDWHILE IF line_number = ")> " THEN SEND ("MD") XMIT counter = 1 ENDIF UNTIL (line_number <> ")> ") // BAND C mwfile=&CTprodpath+"\TL_NGBDC.lst" // JUMP_CURSOR(1) cyclen = 1 SEND (">G*/6CQ-BAND C*NGRID") XMIT counter = 6 last_number = "0" REPEAT READ_SCREEN (counter,1,3,line_number) WHILE line_number <> ")> " AND line_number <> "> " DO IF line_number > last_number THEN READ_SCREEN (counter,9,45,list_text) IF(cyclen=1)THEN OPEN(mwfile,WRITE_MODE,mwfileid,RET_CODE) cyclen=0 ELSE OPEN(mwfile,APPEND_MODE,mwfileid,RET_CODE) ENDIF WRITE(mwfileid,list_text,RET_CODE) CLOSE(mwfileid,RET_CODE) last_number = line_number ENDIF counter = counter + 1 READ_SCREEN (counter,1,3,line_number) ENDWHILE IF line_number = ")> " THEN SEND ("MD") XMIT counter = 1 ENDIF UNTIL (line_number <> ")> ") SEND (">G*/6CQ-BAND C2*NGRID") XMIT counter = 6 last_number = "0" REPEAT READ_SCREEN (counter,1,3,line_number) WHILE line_number <> ")> " AND line_number <> "> " DO IF line_number > last_number THEN READ_SCREEN (counter,9,45,list_text) IF(cyclen=1)THEN OPEN(mwfile,WRITE_MODE,mwfileid,RET_CODE) cyclen=0 ELSE OPEN(mwfile,APPEND_MODE,mwfileid,RET_CODE) ENDIF WRITE(mwfileid,list_text,RET_CODE) CLOSE(mwfileid,RET_CODE) last_number = line_number ENDIF counter = counter + 1 READ_SCREEN (counter,1,3,line_number) ENDWHILE IF line_number = ")> " THEN SEND ("MD") XMIT counter = 1 ENDIF UNTIL (line_number <> ")> ") &ngridItin = 1 ENDIF :exit_script END ENDS