回北京上班已经2~3个月了，天天都是城铁来城铁去的。天天都在感受城铁上的文化。（这里的城铁文化突出的是上下班时段）

 

     曾经的北京只有地铁当年那壮观的“乘车”场面相信不少北京上班族都不会忘记，如今北京虽然有增设的已经城市铁路但是那环绕与北京2环路下面的地铁1、2线仍然显得比较拥挤。而随着上地、中关村软件园区的兴建；随着龙泽、回龙观和立水桥一带大量小区的建成，北京的北边已经成为了又一人流密集区了。而贯通城北，连接东、西直门的城铁13号线就成为这万级人口交通运送工具了，当年那壮观在积地铁的场面在13号线上又再次延续。

      正是因为如此，挤车成了居住在京北这一区域大多数上班族的一项必修课。无论您是去西直门还是东直门只要经过立水桥、霍营、回龙观、龙泽您将要用到“平生所学”去挤车。

      如果您在这4站乘车排队是肯定的了。如果您排在队首，恭喜您怎么都会上的去——就算您不想上也会有人把您推上去。如果您在队中，您的命运就掌握在车上的同志和身后的同志上了——如果车上有足够的“相片空间”、如果您身后的同志有足够的力气或者有极大上车“志向”您不用发愁一定上的去；如果2者缺一90%您上不去（当然人类自身的“潜力”也许会让奇迹发生）。如果您在队尾，我劝您还是帮助您前面的人尽可能的上车吧，这样下一趟车到来时您肯定在队首，否则就算勉强上去了估计也是“城铁封面画”了。

      这是排队挤车的“学问”，等上了车还有“大学问”要做。首先上车后如果有可能尽量往两排座位中间的空间“挤”——记住我说的是“有可能”，这句话一般针对从队首上车的同志而言。这样做并不一定要混个座主要是为了避免在下一站被“后来的同志”再次挤到；如果您不幸被挤在两车门中间的位置上，您只有感受“馅饼”的 味道了；如果您不幸被挤在“车门上”您只能牺牲当照片了，因为城铁有右开门的站（比如：回龙观）所以在右侧当“照片”远远比在左舒服的多，至少不会是一张老被“挤蹭的照片”。我们在车里一旦树立的我们自己的位置后，我们要随时利用城铁上的一切可能设施横杆、立柱、车门甚至车顶以便应对随时可能发生的“人涌”，如果我们真的什么都无法依靠那只能利用“肉垫”了——呵呵。

      中国有句古话叫“上山容易下山难”，这句话在城铁最拥挤的回龙观、龙泽这两站也适用，您要是在这两站下车不提前个一站地的时间向门口“挪”还真悬，而且还要向纤夫们一样在门口喊号子“先让我下去！！”否则还真没人让您。

      为挤车总结三字真言把：快、准、狠。

 

      说到文化就要包含娱乐，否则那就不是文化是准则、是规矩、是宪法。 娱乐是文化的一部分、城铁上的娱乐也是其城铁文化的一部分。人言“麻雀虽小五脏俱全”。城铁娱乐文化分为时尚娱乐文化和传统娱乐文化。

      所谓时尚娱乐文化和传统娱乐文化就是“娱乐”载体不同。

      首先聊聊时尚娱乐文化吧：随着科技的发展各种娱乐设备都趋于小型化，在城铁这样一个“个人空间”及其有限的场所这些小型娱乐工具发挥了他们最大的优势。

     “动听族”这是真正的“动听”一边随着城铁和城铁上其他人晃动的频率自我“摆动”一边聆听着自己喜欢的音乐。所用工具也各有不同，有手机、MP3、MP4、PSP。MP4和PSP个头都算大的所以一般都放在暗处，而手机和MP3因为体积相对较小偶尔也有露脸的时候但是一般都是比较时尚的手机和Apple的MP3，真是“不是时尚的手机和Apple的MP3都不好意思和人家打招呼”。

      “动影族”这因该是当下一种时尚把，在城铁上看电影绝对是“动感影院”的效果。而影院的类型也都各具特色，手机、MP4、PSP。这回没有什么可曳着藏着了都要拿出来“秀”的。但是能看电影的除了PSP千篇一律外，手机、MP4都应该是时尚型的没什么可丢人的。

      “游戏族”这年头玩游戏在各中公共交通中都是一种文化了，城铁也不例外，而且城铁线路长更适合这类娱乐的“开展”。游戏载体也是各种各样手机、PSP、NDSL。现在的手机真是无所不能了，而 PSP、NDSL都是大家熟知的游戏机就不用多说了，有一次还看到小孩子玩掌上俄罗斯方块（呵呵，很有回味）。

       “动书族”要说现在的人真是“刻苦”什么条件下都在看书——县别管看什么，而手机、PSP都已经成了新的图书载体工具了。

       “短信族”发短信可真是现在现在人的“时尚”，电信业的很多套餐都和短信有关，在城铁上发短信的人比比皆是，而短信的载体为手机独占了。

       “电话族”有人在什么情况下都很“忙”，电话不断、手机真是不离手。

        以上都是时尚的娱乐文化，这不代表传统娱乐文化在城铁上就是没有位置，在城铁上依然可以看到捧着一大把报纸的绅士、拿着一本不大的小说的女士、用心在看这各种字典的学士和用笔勾勒着各种试题的忙碌的人。

        着上述的一切就组成的城铁上的娱乐文化。

       

          北京聚集了个方人士，孕育了各种文化。随着城市的发展和变动文化的场所也随之变化和发展。感受，是一个起点和动力。

CREATE PROCEDURE P_SE_FPollutantDischarge(in v_fdepc varchar(30), in v_date varchar(10))--电厂编码,上报日期
--科环基层上报集团数据（污染物排放情况）

     LANGUAGE SQL    
   p1:BEGIN
    DECLARE FZJG VARCHAR(20); --分支机构编码
    DECLARE JZ VARCHAR(20); --机组编码
    DECLARE CZ_TYPE int ; --存在标志
    DECLARE COLNAME VARCHAR(100); --T_SE_FPOLLUTANTDISCHARGE的字段名
    DECLARE value DECIMAL(20,5); --项目值
    DECLARE   sqlcode   INT   DEFAULT   0;--判断游标结束（100结束）
    DECLARE   u_sqlcode   INT   DEFAULT   0;--判断游标结束（自己复制游标结束标志）
    declare usersql varchar(4000); --动态sql;
   
--索引'T_SE_FPOLLUTANTDISCHARGE'的字段
 DECLARE c1 CURSOR FOR
  select colname 
  from SYSCAT.COLUMNS where tabname = 'T_SE_FPOLLUTANTDISCHARGE'and typename = 'DECIMAL'; 
  
  
--索引各机组项目值的字段
 DECLARE c2 CURSOR FOR
  select a.FGEN_CODE,case b.FPROJTYPE when '1' then a.FMONTHVALUE when '2' then a.FYEARVALUE when '3' then a.FLASTMONTVALUE end as A
  from TK_SE_MONTH a, TK_PROJECT b
  where a.FPROJ_ID = b.FPROJID+1
  and a.FReportPeriod =  v_date
  and a.FDEPC_CODE = v_fdepc
  and b.FPROJNAME_EN = COLNAME
  and a.FGEN_CODE <>'' ;
     

--查找分支机构和集团公司，不存在的在表中添加
    -- 判断分支机构
    select FFATHER_CODE into FZJG from T_PLANTDEFINE where FDEPC_CODE = v_fdepc;
   
    select count(*) into CZ_TYPE from T_SE_FPollutantDischarge
    where FReportPeriod =  v_date
    and FDepNo = FZJG;
   
    if  CZ_TYPE<1
    then
  INSERT INTO T_SE_FPollutantDischarge(FDepNo,FFatherDepNo,FDepLevel,FReportPeriod,FNewFactory)
  select FFATHER_CODE,'0','1',v_date,FFATHER_NAME from T_PLANTDEFINE where FDEPC_CODE = v_fdepc ;
 end if; 
 
 --判断集团公司
 select count(*) into CZ_TYPE from T_SE_FPollutantDischarge
 where FReportPeriod =  v_date
    and FDepNo = '0';
   
    if  CZ_TYPE<1
    then
  INSERT INTO T_SE_FPollutantDischarge(FDepNo,FFatherDepNo,FDepLevel,FReportPeriod,FNewFactory)
  values('0','','0',v_date,'华电集团');
 end if; 
  
--删除本期电厂及其机组信息
 delete from T_SE_FPollutantDischarge
 where FReportPeriod =  v_date
 and (FDepNo = v_fdepc or FFatherDepNo = v_fdepc);
 
--插入电厂基本信息   
 INSERT INTO T_SE_FPollutantDischarge(FDepNo,FFatherDepNo,FDepLevel,FReportPeriod,FNewFactory)
 select distinct FDEPC_CODE,FZJG,'2',v_date,FDEPC_NAME
 from TK_SE_MONTH
 where FReportPeriod =  v_date
 and FDEPC_CODE = v_fdepc ;
 
--插入机组基本信息 
 INSERT INTO T_SE_FPollutantDischarge(FDepNo,FFatherDepNo,FDepLevel,FReportPeriod,FNewFactory)
 select distinct FGEN_CODE,v_fdepc,'3',v_date,FGEN_NAME
 from TK_SE_MONTH
 where FReportPeriod =  v_date
 and FDEPC_CODE = v_fdepc
 and FGEN_CODE <> '' ;
 
--更新电厂指标值
 open c1;
 ins_loop1:  
        LOOP  
            FETCH   c1   INTO   COLNAME; 
    --判断游标结束        
            IF sqlcode=100  THEN         
                LEAVE   ins_loop1;
            END   IF;       
    --查询出电厂一个项目的项目值
   select count(*) into CZ_TYPE
   from TK_SE_MONTH a, TK_PROJECT b
   where a.FPROJ_ID = b.FPROJID
   and a.FReportPeriod =  v_date
   and a.FDEPC_CODE = v_fdepc
   and b.FPROJNAME_EN = COLNAME
   and a.FGEN_CODE ='' ;
   
   if CZ_TYPE > 0
   then   
    select case b.FPROJTYPE when '1' then a.FMONTHVALUE when '2' then a.FYEARVALUE when '3' then a.FLASTMONTVALUE end as A  into value
    from TK_SE_MONTH a, TK_PROJECT b
    where a.FPROJ_ID = b.FPROJID
    and a.FReportPeriod =  v_date
    and a.FDEPC_CODE = v_fdepc
    and b.FPROJNAME_EN = COLNAME
    and a.FGEN_CODE ='' ;
  
  --组合动态的电厂项目修改语句 
    set usersql = 'update T_SE_FPOLLUTANTDISCHARGE set '||COLNAME||'='|| char(value)||' where FDepNo ='||''''||v_fdepc||''''||' and FReportPeriod = '||''''||v_date||'''';
    if usersql <> ''
    then
     prepare s1 from usersql;
     execute s1;
    end if; 
   end if;               
        END LOOP ins_loop1; 
 close c1;
 
--更新机组指标值
 open c1;
 ins_loop2:  
        LOOP
   set sqlcode = u_sqlcode;   
            FETCH   c1   INTO   COLNAME; 
    --判断游标结束        
            IF sqlcode=100  THEN         
                LEAVE   ins_loop2;
            END   IF;
            set u_sqlcode = sqlcode;         
    --查询出机组一个项目的项目值
   select count(*) into CZ_TYPE
   from TK_SE_MONTH a, TK_PROJECT b
   where a.FPROJ_ID = b.FPROJID+1
   and a.FReportPeriod =  v_date
   and a.FDEPC_CODE = v_fdepc
   and b.FPROJNAME_EN = COLNAME
   and a.FGEN_CODE <>'' ;
   
   if CZ_TYPE > 0
   then
    open c2;
    ins_loopJZ:
     LOOP
      FETCH   c2   INTO   JZ,value;
      IF sqlcode=100  THEN         
       LEAVE   ins_loopJZ;
      END   IF;   
    --组合动态的机组项目修改语句 
      set usersql = 'update T_SE_FPOLLUTANTDISCHARGE set '||COLNAME||'='|| char(value)||' where FDepNo ='||''''||JZ||''''||' and FReportPeriod = '||''''||v_date||'''';
      if usersql <> ''
      then
       prepare s2 from usersql;
       execute s2;
      end if; 
     END LOOP ins_loopJZ;
    close c2; 
   end if;               
        END LOOP ins_loop2; 
 close c1;  
 
   END  p1
   @