77COUNT-2.MOVE0TOCOUNT-0,COUNT-1,COUNT-2.INSPECTCSTALLYINGCOUNT-0FORALL"E",COUNT-1FORLEADING"W"AFTER"L",COUNT-2FORCHARACTERS.程序首先判断的是字符"R",执行COUNT-0FORALL"E",因为第一个字符不是"E",所以程序转而执行COUNT-1FORLEADING"W"AFTER"L",也不符合要求,...
MOVE 0 TO COUNT-0,COUNT-1,COUNT-2. INSPECT CS TALLYING COUNT-0 FOR ALL "E", COUNT-1 FOR LEADING "W" AFTER "L", COUNT-2 FOR CHARACTERS. 程序首先判断的是字符"R",执行COUNT-0 FOR ALL "E",因为第一个字符不是"E",所以程序转而执行COUNT-1 FOR LEADING "W" AFTER "L",也不符合要求...
MOVE "NEW YORK,NY 10017" TO TEST. UNSTRING TEST DELIMITED BY "," INTO CITY,ZIP. 执行结果CITY 值是NEW YORK.ZIP 的值是NY 10017。 逻辑和控制语句 IF (A [NOT] > B) 等价于 IF (A [NOT] GREATER THAN B) IF (A [NOT] < B) 等价于 IF (A [NOT] LESS THAN B) IF (A [NOT] =...
MOVE CORR A TO B. ACCEPT 从键盘或其他输入设备读取数据。 ACCEPT A FROM DEV.从DEV读取数据到A,也可以省略FROM DEV,表示从键盘读取。 ACCEPT A FROM DATE/DAY/DAY-OF-WEEK/TIME.读取日期,表示为6个字符,如990909(1999年9月9日)。 读取当前日期在年度(前2位)中为第几天(后3位),表示为6个字符,如199...
01STUDENT. 02NAMEPICX(5). 02SEXPICX(5). 02AGEPIC9(2). * PROCEDUREDIVISION. MOVE'HELLOWORLD'TOTEST-DATA. MOVE-234TOTEST-DATA2. ADD234TOTEST-DATA2. DISPLAYTEST-DATA2. DISPLAYTEST-DATA3. MOVE'ERIC'TONAME. MOVE'MAN'TOSEX. MOVE21TOAGE. DISPLAYSTUDENT. DISPLAYNAMESEXAGE. STOPRUN. ...