Комментарий в РПГ?

Я хотел бы прокомментировать несколько строк. В документации мы можем использовать это - ›(/*...*/)

https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/rzajp/rzajpcommentsirpg.htm

Я пробовал несколько раз, но ничего не вышло.

/*
   dsply 'Enter your number1 please : ' '' Number1;
   dsply 'Enter your number2 please : ' '' Number2;
*/

Я обязан использовать две косые черты в каждой строке.

//dsply 'Enter your number1 please : ' '' Number1;
//dsply 'Enter your number2 please : ' '' Number2;

Мне не нравится. У вас есть идея, пожалуйста?

Спасибо


rpgle rpg
person juliette    schedule 27.12.2020    source источник

Ответы (2)


arrow_upward
4
arrow_downward

Это относится только к встроенному SQL, а не к обычной RPG ... из руководства:

Комментарии в квадратных скобках (/ ... /) разрешены во встроенных операторах SQL, если разрешено пустое поле.

person David G    schedule 28.12.2020
comment
Справочник по RPG для комментариев вне встроенного оператора SQL - person Charles; 29.12.2020

arrow_upward
0
arrow_downward

Вы можете использовать / IF и / ENDIF, чтобы удалить несколько строк из компиляции:

/IF DEFINED(skip)
   dsply 'Enter your number1 please : ' '' Number1;
   dsply 'Enter your number2 please : ' '' Number2;
/ENDIF

Если вы действительно хотите иногда использовать этот код, используйте более значимое условие, которое вы можете определить с помощью параметра DEFINE в команде CRTBNDRPG или CRTRPGMOD или с помощью директивы / DEFINE.

/IF DEFINED(prompt_for_input)
   dsply 'Enter your number1 please : ' '' Number1;
   dsply 'Enter your number2 please : ' '' Number2;
/ENDIF
person Barbara Morris    schedule 04.01.2021
comment
или вы можете написать If (1 = 2); <ваш код>; EndIf; - person Radinator; 08.02.2021