ЦОБОЛ

Помогите плиз, нужно (человеку не знающему кобол) сделать условие "нот нал" (нот миссинг, не пустое значение). Только не говорите РТФМ - нет времени катастрофически. Заранее извиняюсь за тупость поставленного вопроса. (с транслита)

Поконкретнее. Что вас интересует pointer, db. If pointer ** ------------------------------------------------------------------- Identification Division. Program-Id. UArgc. * ------------------------------------------------------ * Compile as CBLLE and run this way: * Call Uargc * Call Uargc parm('1') * Call Uargc parm('1' '2') * ------------------------------------------------------ Data Division. Working-Storage Section. 01 Wp usage pointer. 01 w-parametri-ok pic 9(3) value zero. Linkage Section. 01 LParm01 Pic X(10). 01 LParm02 Pic X(10). Procedure Division Using LParm01 LParm02 UArgcMain. **** display ' start' Set Wp to address of LParm01 If Wp not = Null add 1 to w-parametri-ok end-if Set Wp to address of LParm02 If Wp not = Null add 1 to w-parametri-ok end-if If Wp is = Null display ' n. of parameters passed ' w-parametri-ok end-if display ' end ' GoBack. ** ------------------------------------------------------------------ http://home.swbell.net/mck9/cobol/tech/cobolptr.htmll Это то что быстро оказалось под рукой. За точность не ручаюсь, с коболом не работала лет 5. www.google.com

Спасибо, я пользовалась репорт-генератором Lawson который давал совершенно дурацкие результаты. Стоило умному человеку просо сгенерировать программный код и запустить снаружи через командную строку, оказалось что проблема сама собой рассосалась. Знающие люди сказали, что эта кака Lawson некорректно отрабатывает собственноручно созданные коды :-( Спасибо огромное что откликнулись. Не подскажете ли книжку на русском для чайников, дающую представление о структуре и назначении языка?

Посмотрите на Озоне, может там что есть.