Mainframe is Back

职位要求： 本科学历 3-4年主机开发经验 熟悉COBOL，CICS，DB2 熟悉Zos操作系统，银行系统经验佳 工作职责： 根据需求定义与需求分析从事系统设计、开发和测试工作 工作地点 北京 福利待遇： 按照国家规定福利，提供住宿和加班餐补等 薪资面谈 请发简历至tcc_1225@hotmail.com(msn) QQ：26752524

SHELL:   PROCEDURE OPTIONS (MAIN);          DECLARE            ARRAY(50) FIXED BIN(15),            (K,N) FIXED BIN(15);          GET LIST(N);          GET EDIT((ARRAY(K) DO K = 1 TO N));          PUT EDIT((ARRAY(K) DO K = 1 TO N));          CALL BUBBLE(ARRAY,N); END BUBBLE;  [ Read More ]

HELLO: PROCEDURE OPTIONS (MAIN); /* A PROGRAM TO OUTPUT HELLO WORLD */ FLAG = 0; LOOP: DO WHILE (FLAG = 0); PUT SKIP DATA('HELLO WORLD!'); END LOOP; END HELLO;