piyush12197
Programmer
CLEAR
SET TALK OFF
YES="Y"
USE cd
DO WHILE YES="Y"
ITEM_ID1=0
ISSN1=SPACE(20)
DESCRIPTION1=SPACE(20)
@7,75,38,170 box
@4,114 SAY "CD DETAIL"
@4.9,112 SAY "______________"
@10,95 SAY "ENTER ITEM ID " GET ITEM_ID1
@12,95 SAY "ENTER ISSN " GET ISSN1
@14,95 SAY "ENTER DESCRIPTION " GET DESCRIPTION1
@32,95 SAY "IF YOU WANT MORE ENTRY(Y/N)" GET YES PICT "Y"
READ
APPEND BLANK
REPLACE ITEM_ID WITH ITEM_ID1 ;
, ISSN WITH ISSN1;
, DESCRIPTION WITH DESCRIPTION1
ENDDO
DO ITEM_DETAIL
and error is highlighted to append blank.
SET TALK OFF
YES="Y"
USE cd
DO WHILE YES="Y"
ITEM_ID1=0
ISSN1=SPACE(20)
DESCRIPTION1=SPACE(20)
@7,75,38,170 box
@4,114 SAY "CD DETAIL"
@4.9,112 SAY "______________"
@10,95 SAY "ENTER ITEM ID " GET ITEM_ID1
@12,95 SAY "ENTER ISSN " GET ISSN1
@14,95 SAY "ENTER DESCRIPTION " GET DESCRIPTION1
@32,95 SAY "IF YOU WANT MORE ENTRY(Y/N)" GET YES PICT "Y"
READ
APPEND BLANK
REPLACE ITEM_ID WITH ITEM_ID1 ;
, ISSN WITH ISSN1;
, DESCRIPTION WITH DESCRIPTION1
ENDDO
DO ITEM_DETAIL
and error is highlighted to append blank.